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inhoud regioschijf S-a 


HUIS 8000 S00P B1800 A82 A 
IK 8000 8000 21808 B1A 
MACLETT 2988 CEB6 GB/ES B32 
MACMAIN 2908 CE8& @1192 BSA 
MACALL Z2EG@ CE86 GO5DC DAT 
readme 2888 A@71 @1585 052 
MACINKS 2908 CES6 @O14C 368 
MACINK AG0@ 8008 BGO209 DLA 
MHELPAS 2909 CEB6 OAZAD B6C 
MHELPSS 2900 CEG6 OO215 070 
MHELP2S5 2908 CEG6 G@247 B73 
MHELPIS 2900 CEB6 GO239 B76 
MHELPS 8009 8900 GP208 079 
MHELPZ2 8000 8008 GO200 07B 
MHELP1 800% 8299 A2209 7D 
MACWRT 2600 CEB6 @BZDD B7F 
MACDIGI 2208 CEB6 03585 DBZ 
MACSET 2200 CE86 J9692 086 
MACPAT 2908 CEB& @OS7A BSC 
ATOMTST 2900 2900 GADE BI2 
MCONFIG 8000 8008 U18308 OIB 
MACLOGO 800% 5000 G1802 283 
MACORN 2809 CES6 BU11F OCB 


N. 1986 nr.3 blz. 62 
1986 nr.53 blz. 62 
1986 nr.5 blz. &2 
1986 nr.3 blz. 62 
1986 nr.3 blz. £2 
1986 nr.5 blz. 62 
1986 nr.3 blz. 62 
1986 nr.3 blz. &2 
1986 nr.3 blz. 62 
1986 nr.$ blz. &2 
1986 nr.5 blz. 62 
1986 nr.3 blz. 62 
1986 nr.3 blz. &2 
1986 nr.3 blz. 62 
1986 nr.3 blz. £2 
1986 nr.3 blz. 62 
1986 nr.5 biz. 62 
1986 nr.3 blz. 62 
1986 nr.3 blz. 62 
1956 nr.3 blz. &2 
1986 nr.5 biz. 62 
1986 nr.3 biz. &2 
1986 nr.5 blz. 62 


PPPPPPPPPPPPPbPPrPbPrPPbPPb 
zezezzzeezezzzee2zezzzezaee22. 


inhoud regioschijf 3-b 


FDC-#E 29009 C2B2 22223 002 
ENVELOP 2900 AFAF BBAIF G85 
HELP 1560 1560 BVASF B18 
ACE-78 G&F32 6F22 DIOFF AIB 
ACE-2.2 A@08 A00 OGFFF OZC 
GAGSZ2.3 6707 AZUT 21922 B5C 
PAR.GR. 2908 C2B2 @B6SF BAC 
PAR.VS. 2900 C2B2 BGBGAD 55 
IRG 2908 C2B2 GE32D BSA 
POTM.2 2909 C2B2 OBI&ES DSE 
7UUTILs 2909 2900 BA4FF 875 
7O-UTIL 7028 7220 21000 OBC 
VINGER 2908 CZB2 D9229 BCC 
FRE 2908 C2B2 BA24B BCF 
PSC-GSC 2908 C2B2 BOACE BD2 
3D GR. 2908 C2B2 BAID2 BD7 
GD.SGI® 2900 C2B2 GABFE ADS 
GD.SDRW 2908 CZBZ 00/45 OEZ 
BIORYTH 2908 C2B2 OOCDE BEA 
DIAL 2909 C2B2 BOISF F7 


1986 nr.3 blz. 4,78 
1984 nr.5 biz. 7 
1986 nr.3 blz. 54 
1986 nr.5 blz. 54 
1986 nr.3 blz. 54 
1986 nr.3 biz. 56 
1986 nr.3 blz. 27 
1986 nr.3 blz. 27 
1986 nr.3 blz. 26 
1986 nr.3 blz. 19 
1986 nr.5 blz. 1& 
1986 nr.3 blz. 16 
1986 nr.3 blz. 41 
19B6 nr.3 blz. S 
1986 nr.3 biz. é 
1986 nr.3 blz. 15 
1986 nr.3 blz. 37 
1986 nr,3 biz. 37 
19B6 nr.3 blz. 75 
1986 nr.3 biz. 30 


PPrPPPrPrPP 
zZeZzzZzee22z 
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inhoud regieschijf 4-a 


VDU-2.6 2908 C2B2 8207D DUZ A.N. 19B6 nr.4 blz. 35 
GLOEIEN 2900 C2B2 OVOD? 025 A.N. 1986 nr.4 blz. 53 
GLOEIZ2 2828 C2B2 DODE A24 A.N- 1986 nr.4 blz. 55 
COLDUR 2D88 C2B2 OUBG7 025 A.N., 1986 nr.4 blz. 33 
SALF2.G AZ38 AZ0D DOIUDD B26 A.N. 1986 nr.4 ble. 17 
VDT -A 2E03 ZEUD GZEZD B36 A.N. 1986 nr.4 blz. 42 
VDT-B 2ED0 ZEOD @GGE2D 044 A.N. 1986 nr.4 blz. 42 
MINIAS 2990 C2B2 GOD6D 052 A.N. 1986 nr.4 blz. 42 
VDT-SRC 2909 C2B2 OD16D5S DOED A.N. 1986 nr.4 blz. 42 
KARAKT 85202 0023 DOS0P 077 Á.N. 1986 nr.4 blz. 42 
ZOSRC-A 4888 C2B2 D2151 U7C A.N. 1986 nr.4 bìz. 42 
ZOSRC-B 2988 C2B2 O212E DIE A.N. 1986 nr.4 blz. 42 
VIASTAT 2908 C2B2 ODIS BCG A.N. 1986 nr.4 blz. 23 
LIJNEN 2900 C2B2 UU500 BC7 A.N- 1986 nr.4 blz. Z5 
MEMMAP 2900 C2B2 G3428 BCA A.N. 1986 nr.5 

MATCHES 2909 C2B2 23240 BCF A.N. 1986 nr.5 

TRUUKJE 2900 AFAF @O541 UD2 A.N. 1986 nr.5 

MATH 2900 C2B2 @470D OD& â.N. 1986 nr.4 blz. 75 
KOLLIST 2952 C2B2 OOB5B 11D A.N. 1986 nr.4 blz. 29 
INVOER 2808 AB71 @OAU3F 129 â.N. 1986 nr.4 blz. 66 
LEESIN 2908 AFAF OOSD7 12A A‚N. 1986 nr.4 blz, 66 
GRAPHIC 2909 AFAF G1188 150 A.N. 1986 nr.4 blz. 6& 
DIR 2908 AFAF G3216 141 A.N. 1986 nr.4 blz. 66 
XEG 2900 AFAF @8335 144 A.N. 1986 nr.4 blz. 66 
SEARCH2 2900 CZ2B2 @ASED 148 A.N. 1986 nr.4 blz. &5 
G.MAINS S5AD@ S5A0B O22E1 140 A.N. 1986 nr.4 blz. 71 
G.MACHs 2909 C2B2 GBIAB6 16F â.N. 1986 nr.4 blz. 71 


inhoud regioschijf 4-b 


1986 nr.4 blz. 50 
1986 nr.4 biz, 38 
1986 nr.4 blz. 65 
1986 nr.4 biz. 5% 
1986 nr.4 blz. 55 
1986 nr.4 blz. 55 
1986 nr.4 blz. 7 
1986 nr.4 blz. 48 
1986 nr.4 blz. 48 
1986 nr.4 blz. 26 
1986 nr.4 blz. 46 


SD-ETCH 2988 AFAF OUSBF 002 
PICTURE 5008 3629 OUDEF B7S 
PLIST 2988 C282 UO2CF BAP 
DRUPPEL 2988 AFAF OUEBS BEC 
BIGKLOK 2908 AFAF @13A3 BIB 
FILMNEG SF@3 5F00 24188 G2F 
NIGHT 2908 C2B2 GO22B 378 
GRED 9900 9900 BGBADE 073 
GRED.AS 2900 C2B2 W183E 278 
START 2908 C2B2 GYS78 294 
VDURD-2 2900 C2BRP DDS? UFS 


PPPPPPPbPPPP 
ZAEERZERZZE 
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Van de voorzitter : 


Het ís dan eindelijk zover SUA U4AEEEEEEEEOEEEN EEE tt 


De 80-kolomskaart is leverbaar. 

Over deze kaart wil ik eerst even enkele misverstanden geheel 
wegnemen. 

Zo nu en dan hoor ik bij regio's, als het om federatie 
produkten gaat die ontwikkeld worden, de opmerking ‘Ja zeker 
net zoals bij de 8@-koltomskaart', 

Het heeft inderdaad tang geduurd en daarom nu dit artikel van 
mijn hand. 

Hoe is de 8@-koltomskaart in de club gekomen?? 

We schrijven december 1984 een zaaltje in een Zwols hotel. Het 
bstuur zit bijeen en het hardwarecommissielid legt een schema 
op tafel van een B8-kolomskaart. De hardware commissie zag daar 
wel iets in, maar had niemand om hem te tekenen (de film). Toen 
zei de secretaris, ik weet wel iemand die dat kan (de grootste 
fout die híj ooit maakte). Deze twee togen aan de slag. 

Begin maart 1985, het ontwerp van de film vorderde al redelijk, 
kwam de boodschap dat het IC (de EF9345) werd gereviceerd en 
voorlopig niet meer leverbaar was. Ondertussen was er al 1 
besteld. Eind maart op de ALV werd dit probleem naar voren 
gebracht en een aantal lieden uit Den Haag zouden met een 6845 
VDU controller een print maken. Zo gezegd zo gedaan!! De 
dinsdag na de ALV kreeg de secretaris (ondertussen voorzitter) 
een nieuwe uitvoering van de EF9345 in huis, WAT NUIt 

Het bestuur besloot (vanwege de mogelijkheden) om dan toch dit 
IC te nemen en daarmee verder te gaan. 

Zo gezegd zo gedaan. Met hulp van de ontwerper van het schema 
is er verder gewerkt. 

Toen kwam de tweede kink in de kabel. De ontwerper van het 
schema kwam door een bedrijfs ongeval om het leven en daardoor 
viel een steunpilaar voor het ontwerpen weg. De secretaris 
kreeg een andere drukkere baan en had niet zoveel tijd meer 
voor het tekenen. Tegen het eind van de vakantie (augustus) was 
dan toch eindelijk de lay-out klaar en kenden we 3 proefprinten 
laten maken. 

Deze werden gebouwd en iedereen was vol spanning of de kaart 
werkte. Nee dus! 

Van oktober tot december is getest en gemeten. Eerst bleken 
twee pootjes verkeerd aangesloten te zijn, maar toen dat 
verholpen was deed de kaart nog niet veel. Af en toe was er 
iets van beeld, maar niet zoals het zou moeten zijn. 

Totdat, we schrijven ondertussen 29 december 1985, dank zij een 
van een school geleende scoop in samenwerking met de datasheet, 
ontdekt werd dat er een puls op het verkeerde moment kwam. Dit 
werd verholpen, en de kaart werkte. Op 30 december mocht de 
regio Rotterdam de eerste kennismaking met de nieuwe telg van 
de club proeven. Daarna werd er hard gewerkt aan het bijstellen 
van de film en werden groothandels aangezocht voor de levering 
van het onderdelenpakket. Als laatste test werd in Belgie 
(lekker goedkoop) een laatste proefprint voor een. JBL besteld, 
hij zou binnen een week in huis zijn, en vijf weken later 
ontvangen. Dat was eens maar nooit weer. Maar nu is hij er dan 
eindelijk en wat is ie mooit:! 
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Moraal E laat het bestuur zich nooit meer met hardware 
ontwikkelingen bemoeien voor waar het betreft tekenen en 


testen...... 


De soft staat ook te trappelen, zie verderop in dit blad, en 
voor de liefhebbers en kunners de opdracht om cok de andere 
mogelijkheden van de controller in soft te verwezelijken, of 
ondersteunende programmatuur, bv. tekstverwerker. Het eerste 
programma is trouwens al aan gepast, nl. het diskcat systeem 
van Frans Le Blanc. 

Ik hoop dat iedereen veel plezier heeft van deze kaart. 


Met dank aan de acteurs van dit stuk! 


N.H. Schoone tekenaar 
Y.E. Tuk tester 
C.de Moor tester 


C.Kwakernaak ontwerp en software 
S.van Leeuwen meten en rekenen 


E. Tesser foutenspeur der 
R.de Haan JBL 
en 


De voorzitter. 


15 REM NIGHT 


28 REM DOOR SERGE MYNGHEER 
38 REM GEBRUIKT gagsrom 


&8 CLEAR4; WINDOW ,1,1,252,187 

78 REM zon 

88 AzA.R.X150+78; B=A.R./50+50; C=A.R. 4549 
98 CIRCLE 2,A,B,C 

182 PAINT A,B 

118 REM lucht 

128 F‚Z=1 TO (A.R.470+48) S.(A.R.A5+5) 
158 F.I=8 TO 2 

148 X=A.R.%200; Y=A.R. AZ+A.R.Z100;iL=A.R.K150 
158 MOVEX,Y;PLOT&, (X+L) ‚Y 

160 N.IsN.Z 

170 REM stars 

180 F.Z=8 TO 99;PLOTIS, (A.R. 4256) , (A,R.ZI92I EN. Z 
198 REM landscape 
208 Y=50 
210 F‚Z=8 TO 256 

220 X=R. LA Y=YAXG IF Y>=50j Y=Y-2 

230 IF Y<=5;Y=Y+2 

248 MOVEZ,B; DRAWZ ,Y 

258 NEXTZ 

268 WOFF;BORDERO, 

278 INV 

288 LINKHFFES: RUN 
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DATASHEETS ARCHIEF 


In het datasheets archief zijn onder andere de voigende 
datasheets aanwezig: 





datasheet blz kasten omschrijving 
SY2114 4 8,69 Ik «* 4 stat. RAM 
uPD2114L 4 8,68 Ik * 4 stat. RAM 
MCM21 14 5 8,75 Ik « 4 stat. RAM 
EF2516 4 2,69 2k «* 8 EPROM 
TMS2516 5 8,75 2k « 8 EPROM 
EF2532 4 2,68 4k «* 8 EPROM 
MCM2532 6 8,98 4k «* 8 EPROM 
TMS2532 5 8,75 4k * 8 EPROM 
HN462532 4 8,68 4k «* B EPROM 
2716 5 2,75 2k « 8 EPROM 
uPD2716 6 2,98 2k «* 8 EPROM 

32 4 8,68 Ak «* 8 EPROM 
uPD2732A 4 @,‚60 4k «* 8 EPROM 
uPD2764 4 ‚se Bk «* 8 EPROM 
27C6 5 8,75 Bk * 8 CMOS EPROM 
27C128 5 0,75 16k «* 8 CMOS EPROM 
MCM41 16A 8 1,28 16k * 1 dyn. RAM 
TMS4116 8 1,28 16k «* 1 dyn. RAM 
MSM5832 4 8,68 real time clock 
HM61 16 6 2,98 2k « 8 CMOS RAM 
HM61 16LP 7 1,95 2k «* 8 CMOS RAM 
MB8416 5 2,75 2k « 8 CMOS RAM 
uPD446 6 9,90 2k « 8 CMOS RAM 
HM6264P 4 9,69 Bk « 8 CMOS RAM 
HM6264LP 5 8,75 Bk « 8 CMOS RAM 
TCS565P 5 8,75 Bk «* 8 CMOS RAM 
uPD4364 2 8,32 Bk #* 8 MIX-MOS RAM 
SY6502 18 1,50 microprocessor 
SY6520 4 @,6g PIA 
R6522 18 1,50 VIA 
SY6522 24 3,62 VIA 
SY6538 18 1,50 PIA + RAM + ROM 
SY6532 8 1,28 PIA + RAM 
R6545-1 18 1,58 CRT-contraoller 
MC6847 12 1,88 VDG 
EF6821 6 9,90 PLA 
uPD8255A 8 1,20 PPI 
MP8255 11 1,65 PPI 
8255A 21 3,15 PPI 
8271 28 4,28 FDC 


Naast de kopie-kosten zijn ook nog portokosten verschuldigd: 


bladzijden portokosten 
1 - 6 1,18 
7 - 12 1,68 
13 — 48 2,32 
41 -— 75 4,25 
78 — 5,25 


De datasheets zijn te bestelten door het totale bedrag over 
te maken op girorekening 3643518, t.n.v. G. Akkermans, 
Huizen; onder vermelding van de gewenste datasheets. 
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RECTIFICATIE BUSSTRUCTUUR 


Hierbij volgt een gedeelte van het artikel over de busstructuur 
voor de Acorn Atom uit Atom Nieuws jaargang 1986 nr. 5. Hierin 
zijn enkele veranderingen in opgenomen t.o.v. het vorige 
artikel. Misschien kunt u, om vergissingen te voorkomen, deze 
wijzigingen doorvoeren in het artikel in A.N. nr. 3. 

Tevens is hieronder een bijgewerkt figuur 5 geplaatst. 


Fig3 laat ons de modificaties zien die nodig zijn in de Atom 
om het geheel te laten werken. 

Even een korte uitleg. 

Een inverter Záls0á4 of 74ls14 wordt bijgeplaatst in de 
omgeving van het luidsprekertje en verbonden met dunne 
draadjes. 

Haaì IC6 en IC23 uit het voetje,plooi de pennetjes 4 en 5 van 
IC6 en pennetje 5 van 1C23 naar buiten en plaats deze 
terug.Doe hetzelfde met IC8 pennetje 4. 

Verbindt de beide pennetjes 5 van IC6 en 1C23 met elkaar en 
verbindt ze dan met de toegevoegde inverter pen á 

Verbindt pen 3 van de toegevoegde inverter aan 
PL2/31A,verbindt ook het naar buiten geplooide pennetje van 
1C8 hieraan. 

Plaats nu nog een pullupweerstand van PL2/31A naar de plus SU. 
Breng een draadje aan tussen ICH pin? en pin 1 van de 
toegevoegde inverter,verbìndt de uvitgeng pen 2 hiervan met 1C6 
pen 4. 


Deze voorziening maakt het mogelijk zonder verdere 
vitdecodering in de Atom,de gebieden #8004 to #83FF en van 
#B810 tot #BBFF vrij te gebruiken in het rack. 

Dit wordt verder uitgewerkt in het rack door de lijnen BOARD 0 
of 1 laag te brengen wanneer een van deze adressen 
geselecteerd worden. 

Op dezelfde manier kan gewerkt worden om de roms en rams uit 


te schakelen. 
Te 6 
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figuur 3 
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Nu ons geheugen weer opgewaardeerd is, en het met het mijne dus 
ook weer merkbaar beter gaat, moesten we maar weer eens wat in 
de bouwstenen duiken. Eens kijken of we het dit keer wat meer 
Atom gericht kunnen maken. 


D- en JK-flipflop. 


Vatten we de flipflop maar weer eens bij de horens (2). Niemand 
had natuurlijk verwacht, dat we na de eerste 4 delen van de 
flipflop’s af waren. Flipflop’'s zijn in het digitale leven zeer 
belangrijk en worden veelvuldig toegepast. 


Ze zijn er in een aantal soorten: 


- SR-flipflop (zie deel 2) 
— D-flipflop (zie verderop) 
— JK-flipflop (zie nog verderop) 


De D-flipflop heeft als eigenschap, dat er op een gedefinieerd 
tijdstip DATA van de ingang naar de uitgang doorgegeven kan 
worden (inklokken). Vergelijk een schakelaar, welke een signaal 
doorgeeft als hij gesloten wordt. 

Een toepassing vinden we bijvoorbeeld in een schuifregister, 
waarin een aantal D-flipflop's achter elkaar geschakeld zijn 
(zo kan een bit van flipflop naar flipflop doorgegeven worden). 
Schuifregisters kunnen bijvoorbeeld in een digitale 
vertragingslijn toegepast worden. 


NOOT : een kloksignaal is een signaal dat (periodiek) 
afwisselend hoog en laag is. Het wordt altijd gebruikt om een 
proces te sturen (aktiveren). Het signaal kan bijv. afkomstig 
zijn van een oscillator, maar ook van een of andere logische 
schakeling. 


We onderscheiden 3 typen D-flipflop's: 


1l- D=-latch (fig-1). Gegeven zijn het logische symbool (IEC 
norm) en de funktie tabel. 


ci a Ds Bins 


= a 
io Pp a Mi 
fig. 1 


De betekenis van deze funktietabel staat in deel 2 beschreven. | 
ID is de DATA ingang en Cl de klok ingang. De kiok geeft het 
kommandoe wanneer het ingangssignaal naar de uitgang doorgegeven 
mag worden (synchronisatie). Zolang de klok hoog gehouden 
wordt, kan de uitgang veranderd worden dmv de ingang (hier 
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dient terdege rekening mee gehouden te worden), 


2- edge triggered latch (fig.2). 

Een latch welke dit niet heeft, is de edge triggered (flank 
gestuurde) latch. Deze past de uitgang naar de ingang aan, als 
de klok ingang een stijgende flank ziet {laag naar hoog 
overgang). Het voordeel is, dat de DATA slechts kort konstant 
gehouden hoeft te worden, om vervolgens korrekt imgeklokt te 
worden. 

De funktietabel is gelijk als bij de D-flipflop, het symbool is 
als volgt: 


ie C1 Led 


1D 8 
fig-2 


5- pulse triggered latch fig.3. 

Deze latch klokt de DATA pas door als er een volledige 
(positieve) puls op de klokingang aangeboden is. De DATA mag 
veranderd worden totdat de puls begint maar verschijnt pas aan 
de uitgang als de puls afgelopen is. Er is dus sprake van een 
zekere vertraging. 

De funktietabel is weer dezelfde, het symbool als volgt: 


Ci Q 


En 
Dj fig.3 


De gewenste funktie in een schakeling bepaalt de keuze tussen 
deze 3. 


JK-4lipflop. 


Hierbij wordt de uitgang weer aangepast dmv een kloksignaal. J 
en K (Jan en Klaas?) zijn 2 ingangen, welke bepalen wat er met 
de uitgang gaat gebeuren, wanneer de flipflop met het 
kloksignaal juist aangestuurd wordt. 

De JK-flipflop zullen we verder als black box beschouwen. Er 
kan weer een funktietabel gegeven worden {en een symbool 
(fig.4) natuurlijk): 


JK; Bin+1) 1 a a 
88: Bim) bh 

1: ov q _ 

180 1 IK Tp 0 

Eis Qin) fig.4 


We zien de overeenkomsten en de verschillen met de funktietabet 
van de SR flipflop. Belangrijk is, dat we bij de JK-fiipflop 
geen verboden toestanden kennen. Gin+1) wordt weer de nieuwe 
toestand van de flipflop (na de juiste klok bediening) wat 
betreft de uitgang. 
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Voor J en K =D blijft de uitgang dus gelijk. 
Voor J en K verschillend, volgt de uitgang (0) J. 


Voor J en K =1 inverteert de uitgang. 


Een leuke toepassing van zo'n JK-flipflop is een 
frekwentiedeler. Pakken we bijv. een 74LS76 uit de kast, dan 
hebben we een JK-flipflop, welke de uitgang aanpast na een hoog 
— laag overgang op de klokingang (negative edge triggered). 
Maken we nu zowel J als K hoog, dan zal de uitgang na elke hoog 
— laag overgang op de klokingang dus inverteren. Schematisch 
weergegeven: 


C | Ì Ì } | } Ì | Ì Ì | | (1 
® [ l [ l [ l (2) 


Bekijken we deze 2 signalen, dan zien we dat signaal Z een 
frekwentie heeft, welke de helft is van de frekwentie van 
signaal 1. 

Door nu een tweede JK-flipflop achter de hierboven beschreven 
schakeling te zetten, krijgen we het volgende: J en K beide 
weer hoog en de klokingang van de tweede JK-flipflop 
aangestuurd met de uitgang van de eerste. 


C | Ì Ì Ì | Ì Ì | Ì } | Ì 1) 
81 Ì [ Ì Ì [ Ì [ (2) 
92 | | | (3) 


De frekwentie van signaal 3 ligt nu dus 4 maal zo laag als de 
frekwentie van het kloksignaal, 


In de Atom vindt dit een praktische toepassing in IC 44. De 4 
uitgangen van het IC (A‚B‚,C en D) geven een signaal af met 
resp. de helft, een vierde, een achste en een zestiende maal de 
klokfrekwentie. 

De 4 MHz van het kristal wordt zo gedeeld. De processor hangt 
aan de 1 MHz aftakking (dus 2 maal gedeeld). Door de processor 
aan de 2 MHz aftakking (uitgang A) te knopen, zal de Atom dus 
een faktor 2 sneller werken (voor hen die het willen proberen: 
pas op dat de IC's in de komputer niet te warm worden (2114) en 
dynamische RAM kan problemen geven). 


Uit het voorbeeld van de frekwentiedeler volgt nog een 
toepassing. De schakeling ís ats volgt opgebouwd (fig.5): 





fig.5 


Bekijken we de uitgangen A en B als funktie van het aantal 
klokpulsen, dan krijgen we de volgende funktietabel twe gaan 
uit van A en B laag): 
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UNS | 





We hebben een asynchrone 4 standenteller gemaakt. Uitgangen B 
en A "tellen" van nul tot drie (binair). Bij de vierde klokpuls 
zullen B en A beide weer laag worden (probeer dit na te gaan) 
en wordt de reeks opnieuw doorlopen. 

Doordat we een aantal flipflop’s achter elkaar zetten en hun 
uitgangen naast elkaar bekijken, zijn we hier dus in feite 
bezig met een serieeel naar parallel omzetting. 

De schakeling heet asynchroon, omdat de klokinputs van beide 


flipflop 's niet gelijktijdig (met hetzelfde signaal) 
aangestuurd worden. 
Schakelen we nog een flipflop op dezelfde manier, ga dan zeif 


aan de hand van een funktietabel na, hoeveel standen we 
krijgen. 
En zo kunnen we doorgaan natuurlijk. 


Gaan we tenslotte nog even in op de schakeling van fig.5. 
Brengen we de uitgangen A en B naar een AND poort, dan zal de 
uitgang van deze AND poort hoog worden bij stand 5 van de 
funktietabel. In andere woorden, steeds na 4 pulsen zal de 
uitgang van de AND poort hoog worden. We hebben dus een een 
stuk hard-ware gebouwd, dat steeds na 4 pulsen (wat voor 
pulsen, waarvan afkomstig dan cok} een signalering geeft. 

Dit zou ook soft-ware matig gedaan kunnen worden, maar soms 
heeft zo'n hard-ware oplossing de voorkeur (hogere snelheid). 


Samenvatting. 





Flipfiop's zijn bij digitale elektronika zeer belangrijk. We 
onderscheiden 3 typen: 


= SR flipflop 
=D flipflop 
= JK flipflop. 


De SR flipflop is uitvoerig in deel 2 beschreven, 

Bij de D flipflop kennen we 5 soorten, welke zich onderscheiden 
in de manier waarop het kloksignaal de DATA inklokt, 

Met de JK flipflop is op eenvoudige wijze een frekwentiedeler 
te bouwen (welke ook als asynchrone standenteller te beschouwen 
is). 


Beschreven zijn hard-ware oplossingen van problemen, welke ook 
softwarematig. opgelost zouden kunnen worden, maar soms ivm 
snelheid de voorkeur genieten. 


Logische groeten, 
WW Visser 
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Waar zijn standaards voor? 





Het was fijn om weer een ATOM NIEUWS in de bus te krijgen, maar 
wat schetst mijn verbazing, de FDC in het E-bloek, daar zit 
toch de soft voor deze controller. 

Vorig jaar is door de hardware commissie een I/O standaard 
gepubliceerd. Vastgesteld is dat alle 1/0 in het B-block thuis 
hoorten niet ergens anders waar software thuis hoort. 

Ik weet dat de FDC op #A0D lastig is, maar dat komt doordat 
deze print gemaakt is aan de hand van de print van het ACORN 
SYSTEM, dit was goedkoop, geen ontwikkelingskosten, en snel 
realiseerbaar. 

De heren Peters en Wessels schrijven in hun artikel dat 
verplaatsing naar het B-block slechts een halve oplossing is, 
dan mogen ze mij eens vertellen wat daar zo half aan is. Een 
vrijwel gehele uitdecodering en plaatsing in het ATOM 1/0 
gebied is voor mij een gehele oplossing, zeker als hij ook 
nogeens vlaknaast de nieuwe FDC komt te zitten. 

Voor de ombouw naar het B-block zie hieronder en het schema 
hiernaast. Voor de aangepaste software, zie de regio schijt 

Dus voortaan RAM/ROM <> 1/0 


GOED IDEE, BEIDE FDC’S NAAR BLOCK B 1}! 
Wijziging FDC. 


Ik heb in de loop van het afgelopen jaar een aantal wijzigingen 
uigedacht, maar deze bevielen mij geen van allen, 

Er waren altijd enige haken en ogen aan de verbouwing, bv. niet 
volledige decodering, RAM kwijt, Te ingewikkeld ‘stapelen 
enz.). 

Totdat ik nu (Hemelvaartsdag) een geniale ingeving kreeg. 

Wat was de filosofie van ACORN toen het system uit kwam??? 
Hiertoe heb ik de schema's van mijn SYSTEM 5 erbij gepakt en 
deze goed bekeken. Op de bus zit een lijm BLOCKO (Nn), deze wordt 
gebruikt op alle 1/0 kaarten om de decodering eenvoudig te 
houden. Waar wordt hij in de ATOM voor gebruikt??? 

Alleen voor de FDC en niet voor eigen kaarten. De schakelkaart 
bevat een gehele decodering voor HBFFF en de B80-kolomskaart 
ook. 

Nu willen wij de FDC in BLOCK B. 

En er is in principe in de ATOM een lijn voor 1 Kbyte 1/0 vrij. 
Nl. de selectlijn voor het #BC pagina. En dat komt dan geheel 
met de filosofie van ACORN overeen. In dit block kun je totaal 
64 VIA's kwijt, dat zijn dus 1024 besturingstijnen. Of 256 
PIA's (8255) en dat zijn dan &144 besturingslijnen. Dus ruimte 
genoeg voorlopig. 

De verbouwing : 


Je snijdt de lijn die aan pen 31 van de B-rij van de bus zit 
los (tek.1). 

Je soldeert een draadje aan pootje 7 van IC-49 (74LS139) en de 
andere kant van dit draadje soldeerje aan pen 31 van de B-rij 
van de bus (tek.2), 

In de ATOM is de verbouwing nu klaar. 

Op de FDC-print haal je van IC-22 (74LS5138) de pootjes 1,2,3 en 
6 uit het voetje (buig ze naar boven) (tek.5). 

Neem een stukje flatcable van 4 aders en soldeer dit aan de 4 
uitgebogen pootjes. Soldeer dan de lijn van pootje 1 aan pen 12 
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van de Arijs pootje 2 aan pen 11 van de A-rij, pootje 5 aan 
pen 18 van de A-rij en pootje 6 aan pen 9 van de A-rij van de 
bus op de FDC-print (tek.35). 

Nu moet alleen nog de soft hierop aangepast worden, deze wordt 
met de club schijf meegestuurd, maar degene die meteen aan de 
slag wiì kan ook het programma uit ATOM NIEUWS 5:35 gebruiken, 
A=#BC en B=#48, 


WAARSCHUWING : op pagina 79 van dat nummer staat 
149 ?#57EB=A 
Dit moet zijn z 


148 ?#57EB=A 


De 8271{FDC) staat nu op het gebied #BC48-#BC4F ipv. de oude 
#OADD-HEA7F of zoals in het vorige nummer #EFFS-#EFFF. 


Een andere bijkomstigheid (de filosofie van ACORN) is dat 
voortaan alle I/O printen in de #BC pagina eenvoudiger te 
selecteren zijn. Want de #BC-pagina is al op de bus aanwezig. 
Nu hebben we dus echt 32 Kbytes ter beschikking van #0000-#7FFF 
en met de 8ö-kolomskaart van #9800-#PFFF (4Q Kbytes) RAM ter 
beschikking. 

Verder nog een kleine melding : 

Sinds een paar maanden werk ik met een ATOM die geen 1C-4 meer 
bevat, doorverbonden met simpele draadjes, voordeel ís dan ook 
dat ik het hele netwerk voor het openen van de databus t.b.v. 
de schakelkaart heb kunnen verwijderen. 


Veel plezier hier mee. 40 Kbytes RAM is een respectabele 
hoeveelheid voor een B-bits machine. 


Nico Stad. 
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EXE SBALFAG C2,0 EKE 


INLEIDING 


Een van de voordelen van SALFAA ten opzichte van MINIAS is de mogelijkheid on 
gebruik te maken van gescheiden CODE- en RAM-pointer. Om deze luxe ook voor 

de CMOS-fans toegankelijk te maken, is er nu ook een CMOS-uitbreiding voor 
SALFAA geschreven. Tegelijkertijd zijn een aantal fouten uit SALFAA zelf gehaald 
en tevens zijn wat veranderingen doorgevoerd welke de gebruikswaarde van SALFAA 
ze mogelijk nog vergroten, 


CMOS 


De uitbreiding heeft betrekking op de neest uitgebreide uitvoering, de R65C02. 
De syntax is gelijk aan die van de CMOS uitbreiding van MINIAS (zie kit.}. 
Met bit7 van het STATUS-byte wordt bepaald of SALFAA in 6502 mode of in 
R&5L02 mode werkt, Om misverstanden te voorkomen: SALFAA C2,0 zeif is in 

6502 assembìy geschreven en werkt als utility op het AXXX-biok. 


LISTING 


De layout van de vertaal-listing kan men voor een groot deel naar eigen smaak 
instellen. Achter de directives „FIRST, „LIST en „HARD zijn parameters 
toegestaan, De meest uitgebreide vorm ziet er als volgt uit: 


LIST switch,label-tab,instruction-tab,conment-tab 


De switch-paraneter nag slechts 2 waarden aannemen: 1 = ON en Q = OFF, 

De tab-parameters bepalen de beginpositie op de regel waar het betereffende 
item afgedrukt wordt. Als de eerste paraneter groter dan 1 is, dan wordt deze 
meteen als eerste tab-parameter beschouwd, dus als label-tab. De switch 
waarde is dan automatisch 1, hetgeen ook het geval is indien geen enkele 
parameter opgegeven wordt. Een paar voorbeelden: 


„LIST t of LIST ==> scherm aan, tabs ongewijzigd 
LIST 0 ==> scherm uit, tabs ongewijzigd 
„LIST 0,26,28,40 —> scherm uit, tabs ongewijzigd! 
„LIST 30,34, 48 —-} scherm aan, itab = 30, itab = 34 en ctab = 48. 


De 


„LIST f,25 => scherm aan, itab 25, rest ongewijzigd 
De directive-tab is altijd gelijk aan itab-1, Als commentaar het eerste ítem op 
de regel of na een puntkomma is, dan geldt hiervoor de itab. 


EXPRESSIES 


Door een verbetering in de symbolische expressie evaluator hoeft men symbolen 
niet meer tussen haakjes te zetten, Bij „OPTION, inmediate addressing en in 
declaraties zijn binaire getallen en ASCII karakters toegestaan, Deze kunnen 
echter niet in expressies gebruikt worden. Enkele voorbeelden: 


:twee =:10 LDA @& 04101011 tcomma = “," 
wijf = 7-twee LDX @duizend4256 CMP 8"; * 
sduizend = vijfkZ00 LDY @duizend/256 CMP @CH"A*—1 
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SYMBOLTABLE 


Als men geen geheugenruiate reserveert met „TABLE of .EXTERN dan zal automatisch 
een nieuwe symboltable ge-initieerd worden vanaf de default ondergrens (#8200). 
De meest eenvoudige en tevens meest voorkomende situatie is die van een 
enkelvoudige tabel, waarin tijdens de le pass nieuwe symbolen bijgeschreven 
worden en tijdens de Ze pass alleen symbolen gelezen worden, We noemen deze 
lees/schrijf tabel de actuele symboltable. 


Men kan echter desgewenst ook gebruik maken van reeds bestaande tabellen. 

Dit kunnen standaardtabellen zijn of tabellen welke door een ander programnâ- 
deel (“madule”) geproduceerd zijn. In zo’n externe tabel kan alleen gelezen 
worden. Een externe tabel onderscheidt zich van een actuele tabel doordat 
eerstgenoesde bij herhaald “RUNnen" niet "vergeten" wordt. 


Zo'n externe tabel is natuurlijk tijdens de aanmaak ervan nog actueel. 

Deze actuele tabel kan net ASM-XTERN verheven worden tot externe tabel, 

Met ASM-TABLE kan sen begin- en eind-adres opvragen, bv B200 83A0 7000, waarna 
de tabel met 4SAVE“NAAM.TBL"B200 83A0 op band of schijf gesaved kan warden, 
Bij een volgende gelegenheid dient deze direct vanaf de ondergrens in het 
gereserveerde geheugen geladen te worden, bijv: 8L0AD"NAAM, TBL" 8600, 

Met bijv: .„XTERN #B600,#8CO00 wordt vanaf het top-adres van de externe tabel 
{nu dus #87A0) een lege actuele tabel ge-initieerd. 


Het is mogelijk om meerdere externe tabellen tegelijk te gebruiken. 

Deze moeten dan vanaf de ondergrens in het gereserveerde geheugen achter 
elkaar geladen worden. Daarbij is het begin-adres van de volgende tabel steeds 
gelijk aan het top-adres van de voorgaande tabel, 


Na het ontwikkelen van een programma aet gebruikmaking van een (of meerdere) 
externe tabellen) kan het handig zijn om een integraal gesorteerde tabel af 
te drukken. Dit is mogelijk door gebruik te maken van ASM-JOIN waardoor de 
laatste 2 aanwezige tabellen tot 1 externe tabel samengevoegd worden. 

Bij aeerdere externe tabellen deze handeling zonodig herhaten, 

En dan nog een tip: om een nette afdruk van de tabel op de printer te krijgen, 
is het aan te raden de regelbreedte op een veelvoud van í6 in te stellen. 


FOUTMELDINSEN 


Na een foutselding wordt de betreffende regel automatisch afgedrukt. Een aan- 
wijs-sterretje zoals bij P-charme ontbreekt, maar de tekst van de foutselding 
is in de meeste gevallen als aanwijzing voldoende. Er is echter een foutmelding 
welke enige toelichting verdient en dat is: "UNMATCHED LABEL VALUE”. 

Deze foutmelding wordt gegeneerd als de assenbler tijdens de Ze pass een 
verschuiving van de CODE-pointer ten opzichte van de le pass constateert. 

Dit doet zich voor bij "zero page forward references". Dat wil zeggen dat een 
syabolisch aangeduid zero page adres als operand in een instructie gebruikt 
wordt, voordat deze gedeclareerd is. Dit is te voorkomen door altijd alle 
B-bit declaraties aan het begin van een assesbler programma te doen. 


Er kunnen zich ook foutmeldingen voordoen zonder verklarende tekst, dus op 
de traditionele ATOM manier, Deze hebben dan de gebruikelijke betekenis die’ 
bij het betreffende foutnuamer hoort. De page cross aelding is de enige in de 
vorn van een waarschuwing en is nu in alle gevallen correct. 
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STATUS BYTE 
Hierbij valt op te merken dat bit4 een andere betekenis heeft. De layout is 
immers met de list-parameters naar wens in te stellen, 
b7 b6 b5S b4 b3 bz bi bo 
i === 0 eerste pass (pass0) 
ij 1 tweede pass (passl) 


mennen 0 wel wegschrijven (code) 
1 niet wegschrijven 


Enten gereser veerd 
mannen nog geen toepassing 
meneere 0 niet afdrukken RAM-pointer 


1 wel afdrukken RAM-pointer 


nrneneenvermven= 9 geen page cross melding 
Î wel page cross melding 


wamennnnnnnnne 9 wel P-charme (op #1000) 
1 geen P-charme 


mennmmenneenennnnnn 9 6502 mode 
R65CO2 node 


SYMEDLEN 


Symbolen mogen samengesteld zijn uits A..Z a..z 0..9 * en _ (underscore). 
Hierbij gelden de volgende restricties: 


1. Een syabool mag niet beginnen met een cijfer 
2. Een symbool mag niet enkel en alleen uit een hoofdletter bestaan 
3. Als een symbool met een hoofdletter begint, dan: 

a. aoet de Ze letter ook een hoofdletter zijn 

b. mag de Ze letter niet gelijk aan de eerste zijn 

c. mag het synbool niet beginnen net een bestaande BASIC-functie 


Voorbeelden: fout: Iste goed: ‘iste 
B b 
Bi b1 
B B 
Adres ADRES 
AANTAL aantal 
LENGTE lengte 


Een hoofdletter alleen is in een expressie wel toegestaan omdat deze daar als 
BASIC-variabele gezien wordt. 

De 6502 registers mogen zowel met hoofdletters (A,X,Y) als met kleine letters 
(a,x‚y) aangeduid worden. Dit heeft tot gevolg dat de BASIC-variabele A en het 
sy&bool a niet ats operand-adres in een instructie gebruikt kunnen worden. 
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STATEMENTS 


SALFAA drukt alle statesents + entry af welke door SALFAA herkend worden. 


PASS expor plaatst laagste 2 bits v/d expressie in het STATUS-byte, ?#2BFF. 


CALL expr initieert nieuwe BRK-vector (1) en werkt verder als LINK waarbij de 
6502 Carry-$lag de waarde krijgt van het laagste bit van var C, 


SYH expr initieert nieuwe BRK-vector (1) en drukt de waarde van de 
‘symbolische) expressie hexadecimaal af. Dit statement is speciaal 
bedoeld voor gebruik in direct mode. 


KE opent lang commentaar tat als afsluiting x) gevonden wordt, waarbij 
x een karakter naar keuze is. 


\ opent kort commentaar tot puntkomma of carriage return. 


ASM-stat voert het assembler-statement uit wat bepaald wordt door de 
eerste letter na het min-teken, rest is commentaar tot : of CR. 


ASM-BEGIN 


ASM-CONTINUE 


ASM-END 


ASM-INIT 


ASM-JOIN 
ASM-LAST 
ASM-5YMBOL 
ASM-TABLE 
ASM-UNRAVEL 
ASM-VERSTON 
ASM-WARNINGS 


ASM-XTERN 


is hetzelfde als ASM-INIT gevolgd door ASM-CONTINUE. 

zet scherm uit, 

initieert nieuwe BRK-vector (1), 

zet SALFAA in assenbler-node, 

herstelt BRK-vector met oude waarde (2). 

initieert syaboltable-grenzen var 5 op #8200,#2000 

initieert CODE-pointer var P op #9000 

initieert RAM-pointer var 0 op #0000 

initieert 1tab,itab,ctab op resp. 22,24,59 

reset interne table-flag tijdens le pass waardoor een eventueel 
aanwezige actuele symboltable "vergeten" wordt. 

vaegt de laatste 2 tabellen samen tot 1 externe tabel. 

drukt de laatste symboltable af gevolgd door ASM-WARNINGS. 
drukt de totale symboltable af gevolgd door ASM-WARNINGS. 

drukt syabaltable-grenzen af met daartussen gelegen table-top(s), 
sorteert de laatste symboltable. 

drukt het versie-nummer van SALFAA af, 


drukt het aantal opgetreden waarschuwingen af. 


verheft de actuele symboltable tot externe symboltable. 


(1) Hierbij wordt eerst getest of de BRK-vector reeds gelijk is aan SALFAA-BRK, 
Is dit niet het geval, dan wordt eerst de huidige waarde bewaard. 


(2) Hierbij wardt eerst getest of de BRK-vector wel gelijk is aan SALFAA-BRK. 
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Vv LRECTIVES 


Een directive bestaat uit een punt, gevolgd door |t of meer letters. De fe letter 
na de punt bepaalt welk directive het is en de rest is "aanhangsel" naar keuze. 


„ASCII data 


‚BYTE data 
„CODE expr 


‚DBYTE data 


„END 


„FIRST par 
„GOTG line 
„HARD par 


„IF expr 


„LIST par 
„NEWLINE expr 
„OPTION expr 
„PRINT e,e, …… 
‚RAM expr 


‚ SYMBOL 


„TABLE ei,e2 


‚ UNRAVEL 
‚ VERSION 


‚WORD data 


„XTERN el,e2 


plaatst B-bíts data in geheugen. (4) 
Vb: .ASCII 6, "tekst",‚cr,1f, "nog tekst"‚enz... 


is identiek aan „ASCII (verschil is zuiver suggestief), 
plaatst expressie-waarde in de CODE-pointer, var P. 


plaatst i6-bits data in geheugen, hoge byte eerst. (1) 
Vb: .DEYTE "TEKST", adres,enz... 


zet printer uit en scherm aan, 

zet SALFAA in BASIC-mode, 

na .E commentaar tot ; of CR. 

zet scherm aan tijdens le pass, (par: zie LISTING) 
springt naar opgegeven regel (nummer of BASIC-label). 


zet printer aan tijdens 2e pass. (par: zie LISTING) 


voert rest van regel alleen uit als de (testable) expression 
als uitkomst TRUE geeft (non-zero result). 


zet scherm aan tijdens 2e pass. (par: zie LISTING) 
print een aantal linefeeds gelijk aan de expressie-waarde. 
plaatst hoogste & bits v/d 8-bits expressie in STATUS-byte. 
stuurt 7-bits codes naar printer. (ook 2,5 en P#FE) 


plaatst expressie-waarde in de RAM-pointer, var 0. 


drukt de totale symboltable en warnings af tijdens ze pass. 
Met LAST als parameter wordt alleen de laatste tabel afgedrukt. 


reserveert geheugen voor de symboltable. De eerste expressie 
is de ondergrens, de tweede de bovengrens. Ontbreekt de Ze 
expressie dan bepaalt het aanwezige RAM-geheugen de bovengrens, 
Beide grenzen worden in var S geplaatst. Tijdens de le pass 
wordt vanaf de ondergrens een lege actuele tabel ge-initieerd. 


sorteert de laatste symboitable tijdens Ze pass. 
drukt versie-nuamer van SALFAA af. 


plaatst lé-bits data in geheugen, lage byte eerst, (1) 
Vb: „WORD adres, "TEKST",enz... 


als „TABLE maar initieert nieuwe actuele tabel achter reeds 
aanwezige externe tabel{(len). 


(1) Data mag bestaan uit strings en expressies gescheiden door komma's, 
Als string-delimiter is alleen het dubbele quote teken (“) toegestaan. 
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In assembler mode zijn er de volgende mogelijkheden: 





instr 6502 of R65COZ instructie 

instr SWEET1& instructie 

„dir directive 

:synbolzexpr declareert syabol welke de waarde van de expressie krijgt 
zlabel declareert label welke de waarde van de CODE-pointer krijgt 
\conaent kort comaentaar tot ; of CR 

(x lang comaentaar tot x) 

$stat ster-statenent 

COMPATIBILITEIT 


SALFAA C2.0 is niet 100% upwards compatible met SALFAA V1.5. Bij het 
asseableren van prograama’s geschreven voor SALFAA Vi,5 kunnen zich 
problemen voordoen wet betrekking tot de volgende punten: 


1. In het .ASCII directive is bij C2.0 als string-delimiter alleen het 
dubbete quote teken (") toegestaan. 


2. Bij C2.0 is het niet meer toegestaan om dezelfde labelnaam meerdere keren 
als label te gebruiken. 


3. Als scheiding tussen 2 instructies is de spatie bij C2,0 niet meer 
toegestaan. (mag uiteraard nog wel tussen label en instructie). 


4, Bij C2,0 aag een directive-naam alleen uit letters bestaan. 


5. Met het .PRINT directive kunnen nu alle 128 codes naar de printer 
gestuurd worden, Dit heeft tot gevolg dat de printer-driver niet meer 
aan en uit gezet kan worden met dit directive. 


6, Een door V1.5 geproduceerde syaboltable kan niet zonder meer als externe 
tabel voor C2,0 gebruikt worden. 


7, De SWEET1& interpreter is niet meer aanwezig. Deze bevond zich in V1.5 
vanaf #AE70 t/m #AFFA. Als aen deze faciliteit wil blijven gebruiken, 
zal deze naar een ander geheugengebied gereloceerd moeten worden. 

Het SWEET16 assembler gedeelte is overigens nog wel aanwezig. 


BLOTWOORD 


In het algeneen kan gesteld worden dat de syntax van SALFAA C2.0 iets strenger 
is dan die van V1.5. Er vinden meer controles plaats zodat de gebruiker sneller 
op (doane) fouten ge-attendeerd wordt. Verder is C2.0 ongeveer een factor 2 
sneller dan V1.5 wat voor een deel te danken is aan ideeen welke ontleend zijn 
aan MINIAS, met dank aan de ontwerpers daarvan. En "last but not least" wil ik 
Bran Poot bedanken voor het beschikbaar stellen van de source van V1,5. 


L ITERATUUR 


SALFAA VO,4 V1,5 AN 2 1985 blz 54,.67 
P65CO2 ASSEMBLER AN 7 1985 blz 32..36 
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Inteiding. 





In de vorige A.N. stond het artikel “DUG-VIA' van J.ternout, 
waarin beschreven werd hoe meerdere VIA's op de ATOM zijn aan 
te sluiten. Het toeval wilde dat ik net de source voor drie 
statements geschreven had die de in- en output-dialoog met de 
VIA verzorgden. Deze source heb ik nu aangepast waardoor deze 
statements ook toe te passen zijn voor het gebruik van twee 
extra VIA's, te 

weten op #BCO9 en #BC18. 

Als men de extra VIâA’s op andere locaties heeft onder gebracht, 
kan men de source gemakkelijk aanpassen door enkele adressen 
hierin te wijzigen. 

Indien men niet van plan is extra VIA's aan te sluiten kan men 
de regels 148 t/m 170, 218 t/m 240, 500 t/m 330, 370 t/m 400, 
460 t/m 498 en 530 t/m 569 verwijderen en uit de regels 139, 
200, 290, 360, 458 en 529 de BEO- en de JMPinstructies 
verwijderen. 

Voor de mensen die geinteresseerd zijn in het gebruiken van de 
VIA('s) als in- en outputorgaan en hier nog geen ervaring mee 
hebben opgedaan, kan het geen kwaad hoofdstuk 21 uit ‘ACORN 
ATOM’, van P.J.Smulders door te nemen. 


Syntax. 








'VYIA <poort>,<directe waarde of variabele>’ 
“YOUTPUT <poort>,<directe waarde of variabele>’ 
“VINPUT <poort>,<variabele>’ 


Werking. 





Met het statement ‘VIA’ bepaalt men welke poort gebruikt wordt 
voor in- en/of output. Voorbeeld : 


x VIA A,#FB 

De A-poort van de VIA op #B808 wordt geschikt gemaakt voor in- 
en output. 

De pinnen PAB, PA1, PAZ en PAS worden gebruikt voor input en de 
pinnen PA4, PAS, PAG en PA7 worden gebruikt voor output G#FB is 
binair 11119000). 

Dit commande is gelijk aan ‘?#205=7#208+5; 7#BABI=#FD . 


* "VIA C,#FG' 

Idem voor de A-poort van de extra VIA op #BCO®, echter 7#205 
wordt niet met 3 verhoogd. 

Dit commando is gelijk aan '‘?#BCOS=#F0D". 


* ‘VIA E,#FB' 

Idem voor de A-poort van de extra VIA op #BCIJ, echter 7#208 
wordt niet met 3 verhoogd. 

Dit commando is gelijk aan ‘?#BCIS=#F0". 


* 'VIA B,#AC' 


PAG. 24 ATOM NIEUWS DUO-VIA VERVOLG G. DE ROOS 





Van de B-poort van de VIA op #BB@8 worden de pinnen PBO, PBI, 
PB4 en PB6 gebruikt voor input en de pinnen PB2, PB3, PB5 en 
PB? gebruikt voor output (#AC ís binair 10191108). 

Dit commando is gelijk aan ‘?#BBB2=#AC". 


# VIA D,#AC' 
Idem voor de B-poort van de extra VIA op #BCOD. 
Dit commando is gelijk aan ‘?#BCD2=#AC". 


* ‘VIA F,‚#AC” 
Idem voor de B-poort van de extra VIA op #BC18. 
Dit commando is gelijk aan '?#BCI2=#AC", 


Met het statement ‘VOUTPUT' stuurt men wel of geen signaal naar 
de pinnen van een poort. Voorbeeld : 


* 'VOUTPUT A‚#FD' 

Naar de pinnen PAS, PAI, PAZ en PAS wordt geen signaal gestuurd 
en naar de pinnen PA4, PAS, PAG en PA7 wordt wel signaal (5 
Volt) gestuurd. 

Dit commando is gelijk aan ‘?#BEOF=#F0". 


Met het statement ‘VINPUT' kent men aan een variabele de waarde 
toe die gelezen wordt over de pinnen van een poort die de input 
registreren. 

Voorbeeld : 


“ ‘VINPUT B,‚0" 

Als P?HB882=#00 en ?#BEUD=HBF dan krijgt de variabele Q de 
waarde #40. 

Dit commando is gelijk aan ‘@=((?#BB02: #FF) & (?#B800: HEF) ) 
Hier ben ik uitgegaan van de situatie volgens afbeelding 21-5 
op pagina 157 uit de eerder genoemde handleiding van 
P.J. Smulders. 

Wanneer de schakelaar open staat, dus als er geen signaal 
aangeboden wordt op pin PB6, voert pin PB6 een spanning van 5 
Volt (een logische 1). 

Als deze gesloten staat, er wordt nu wel een signaal 
aangeboden, voert pin PB6 geen spanning (een logische B). 


Stel ?7$B8O2=#AC en PHBBOB=HIG. 

Van de pinnen PBG, PBI, PB4 en PB& die voor input worden 
gebruikt, krijgen PBO en PB6 signaal aangeboden. 

Nu volgt wat het commando ‘VINPUT B,®’ in dit geval uitvoert 


?#B8DZ : HAC bin. 18181126 
HEF bin, 11111111 





en eeeeeenr EXOR 
uitk.l : #53 bin. @1810011 
M#B8DB : #96 bin. 18812118 
HEF bin. 11111111 

ze eenen EXOR 
uitk.Z : #69 bin. 1101201 
uitk.1 : #53 bin. @1810011 
uitk.2 : #69 bin. @1101201 

=neeeeeeen AND 


varia. : #41 bin. 01004401 
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Zo krijgt de variabele G inderdaad de waarde #41 die 
correspondeert met de pinnen PB@ en PB6 waarop signaal 
aangeboden wordt. 


Gebruik. 





Dat blijft de echte uitdaging inhouden, succes |t 


Guido de Roos 

Sacramentsstraat 17 
B911 GK Leeuwarden 
Telefoon 858-1271509 


10 PROGRAM LIJNENSPEL 
28 REM G DE ROOS 1786 


48 PROC PLAATS 

50 IF B?7136+V<8 THEN V=ABSRNDAR+1 

69 IF B?136+V>255 THEN V=-ABSRNDAR-1 
70 B?136=B?156+V 

85 IF BP1357+W<0 THEN W=ABSRNDAR+1 

98 IF B?137+W>191 THEN W=-ABSRNDAR-1 
192 B?1357=B?157+W 

119 IF B?138+X<0 THEN X=ABSRNDAR+1 
129 IF B?138+X>255 THEN X=-ABSRNDAR-1 
1537 B?138=B?158+X 

140 IF B?159+Y<0 THEN Y=ABSRNDAR+1 
159 IF B?7159+Y>191 THEN Y=-ABSRNDAR-1 
169 B?139=B7159+Y 

178 PEND 


190 PROC SCHUIFOP 
208 ICOPY B+4,B+139,B 
218 PEND 


250 PROC TEKEN 

248 MOVE (B?156),(B?137) 
258 PLOT &,(B7158), (B?1359) 
268 MOVE (7B),(B?1) 

278 PLOT 6, (B?2), (B?5) 

288 PEND 


300 REM HOOFDPROGRAMMA 
319 B=#2800; R=b; V=Sj WES X= 55 VES 
320 FOR N=4 TO 1359 

330 BPN=0 

340 NEXT N 

552 CLEAR 4 

568 WHILE 1 

3578 SCHUIFOP 

388 PLAATS 

398 TEKEN 

AAA WEND 
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De uitbreidingen van P-Charme 


P-Charme kan op verscheidene manieren worden uitgebreid, zodat 
zonder al te moeilijke programmeertechnieken extra commando's 
geschreven kunnen worden. 

Allereerst de meest eenvoudige : 

In basic is het mogelijk om een P-C commando te schrijven, dit 
is eenvoudig, maar het heeft ook beperkingen. 

Als je een programma in de eerste regeì met PROGRAM begint en 
daarachter een naam zettzie P-C handleiding) dan ziet P-C dít 
in het vervolg als een commando, 

dus z 


18 PROGRAM VUL 

28 FOR X=#8000 TO #97FF STEP 4 
32 et 

48 NEXT X 

50 END 


Zorgt ervoor dat het grafische geheugen met H#FF wordt gevuld, 
oftewel een wit scherm in clear4 


Als we nu intikken VUL en op RETURN drukken dan wordt het 
clear4 scherm wit gemaakt. 

maar als we dan een LIST geven, dan krijgen we dus niet het 
programma te zien waar we mee bezig waren, maar bovenstaande 
programmaatje. 

Dit kunnen we verbeteren door eerst voor we VUL intikken De 
tekst pointer te bewaren op adres #BO. 

Dit gaat door ?#BO=?#12. 

we breiden bovenstaand programma uit met : 


45 7#12=7#80 
en we tikken bij ons eigen programma eerst het volgende in : 
PA8D=?KI2SRETURND 


als nu het commando VUL wordt uitgevoerd en we vragen dan een 
LIST dan krijgen we ons eigenlijke programma weer te zien. 


Dit alles houdt in dat we het commando VUL nooit in een 
programma kunnen gebruiken. 


Hiertoe moeten we een tweede basic-commando uitbreiding 
gebruiken, maar dit vraagt wel kennis van machinetaal. 

Niet iedereen is hier toe in staat daarom hieronder een aantal 
hulp routines voor het maken van een uitbreidings tabel. 

Je kunt daarmee eigen tabellen maken en uitbreiden met routines 
die her en der vermeld worden. 


DE START : 


Een uitbreidingstabel van P-C moet met een aantal gegvens 
starten. 

De tabel moet aan het begin van een pagina beginnen dus bv. op 
#7F BD. 

Het eerste byte geeft een eventuele vervolg tabel aan hierkomt 
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in eerste instantie H#FF te staan.Het tweede en derde byte 
worden door P-C gebruikt om te controleren of het een begin van 
een tabel is. De waarden die hier moeten staan zijn #ES en #C6. 
En dan is er nog een vierde byte dat bepalend is en dat is #80, 
dit getal geeft het einde van de tabel aan. 


Om te zorgen dat P-C deze tabel kan vinden, moeten we zorgen 
dat het geheugenadres #3FC het hoogste byte van het begin van 
de tabel bevat, in ons geval dus #7F. 


Je kunt nu met de hand een aantal zaken instellen, maar je kunt 
daar ook een programmatje voorgebruiken, het startprogramma. 


10 PROGRAM START 
15 DIM LLijLL@=99FjLL1=99T 
20 PRINT"WAAR MOET DE TABEL KOMEN" 


30 INPUT T 

40 IF T4256<>8 THEN P.$7$7$7;GOT0 20 

58 PRINT"WAAR MOETEN DE COMMANDO'S BEGINNEN" 
&7 INPUT A 

70 IF AX256<>B THEN P.$7$7$7;GOT0 50 

82 N=#2800 


9D PRINT"NAAM UITBREIDING" 
108 INPUT $N 
110 ST=#AOCGESFF; 





120 + 200A0DDD; 

150 & "PROGRAM ";A=A+8 
148 & N3 AZAtL..N 

158 } 20510AAD; A=A+4 
160 & LI. #"zA=ArG 

170 P=At& 


180 S=P/#100D; P=P- (S*#1500) 
198 5=6+48; IF S>57 S=5+7 
200 PA=5; A=A+1 

218 S=P/#100; P=P- (5*#100) 
220 5=5+48; IF S>57 5=547 
230 PA=S; A=At1 

240 S=P/#10; P=P- (S*#10) 

250 S=5+48; IF S>57 Se547 
260 PA=Sj A=A+L 

27B P=P+48; IF P>57;P=P47 





355 ST=SN; T=Ttt.T 
348 PT=(LLB/256) #80 T?1=ti 042563 T=T+2 
353 7T=#80TI1=A 


362 END 

40Gal 

410:LLD LDA @(A/#10D) 
420 STA #SFC 

450 CMP- #12 

440 BNE LL1 

450 JMP #C2B2 
46O:LL1 IMP #C558 
4701 


488 RETURN 
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Als dit programma gerund is, kunnen we de nieuwe 
BASIC-statements gaan toevoegen. 

Hiertoe moeten we een paar regels aan de source van ons nieuwe 
statement toevoegen. 

Voor de regel waar DIM in staat, vullen we de volgende regels 
toe : 


— INPUT"WAAR BEGINT DE TABEL"T 
- IF T4256<>8 RUN 

— IF TP1<>#ES AND T?2<>#C6 RUN 
= DO T=T+1; UNTIL ?T=#50 

— A=TI1 


Hierna komt de DIM regel bv. : 


— DIM LL4,SSS;F.X=B TO 11;LLX=I9PjN, 


en dan : 
= P.$21; ;GOS.a 
- P.$6 ; ‚GOS, a 






“statementnaam"; T= 
— PT=(LL@/256) :#B8; T?1=tL0/256; T=T+2 

LLS is hier het begin van het statement) 
— A=sP; TI 1=A 

= END 

— al 


en hierna de source van het statement. 

Als je nu meerdere statements achter elkaar aan een tabel 
toevoegd, dan hoef je alleen maar bij het eerste statement de 4 
regels voor de DIM regels toe te voegen, want T en A blijven 
behouden. 

Je kunt de tabel nu aktiveren door de naam van de tabel in te 
tikken. (zie startprogramma) 

Dan nog even over het eerste byte van de tabel, Deze is in het 
startprogramma op #FF gezet, maar stel je voor dat een tabel te 
klein is om al je extra statements te bevatten, dan kun je dit 
byte gebruiken om naar een volgende tabel te verwijzen. 

Je hebt bv. een tabel met utility-statement en een tabel met 
graphic statements, de utilities worden meestal niet in een 
programma gebruikt, maar vanaf het toetsenbord bij het 
schrijven van programma’s en het bekijken van het geheugen enz. 
De utility tabel heet UTIL en de graphische tabel heet GRAPHIC. 
Bij het opstarten van de grafische tabel neem je het 
startprogamma zoals het hierboven staat, en bij de utility 
tabel zet je in regel 118 !T=#80CGEZ6T. 

De graphictabel begint dus op #4900. 

Als je nu UTIL intikt, dan heb je beide tabel ten 
terbeschikking, en als je GRAPHIC in tikt, dan is de utility 
tabel uitgeschakeld en wordt alleen de grafic tabel door 
P-CHARME herkend. 
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Er is naast de hiervoor genoemde mogelijkheden nog een derde 
uitbreiding nl. de FUNKTIE's, maar het is vrij ingewikkeld om 
deze te gebruiken, dit is alleen mogelijk aîs je behoorlijk 
goed in machinetaal programmeren thuis bet, en ook de werking 
van de funktie's bestudeerd hebt. Voor dit soort uibreidingen 
is een hulp programm geschreven dat P-FUN(ction's) heet. En 
daarbij zijn ook een aantal FUNKTIE's opgenomen. 

Misschien dat ik in de toekomst daar nog een verhandeling over 
schrijf, maar nu nog niet. 

Veel plezier met het gebruik van bovenstaande programma's en 
mochten er onverhoopt toch fouten in geslopen zijn, dan hoor ik 
dat graag, zodat hiervan een verbetering van kan volgen. 


Nico Stad. 


Alweer enige tijd geleden heeft er ín acornnieuws een programma 
gestaan voor het listen van programma's in 2 kolommen. Destijds 


heb ik van dat idee dankbaar gebruik gemaakt, en het programma 
(in enigzins gewijzigde vorm) heeft dan ook regelmatig zijn 
dienst bewezen. Toch was er nog een ding wat mij niet aanstond. 
Bij programma’s van meer dan 1 pagina was het lastig om je 
programma te bekijken omdat het programma niet per PAGINA over 
2 kolommen verdeeld was, maar de eerste helft links op alle 
pagina's en de tweede helft rechts op alle pagina's. 
Onderstaand programma lost dit probìeem op. Tevens zit er nog 
een handigheidje in verwerkt. Mijn printer (microline 88) heeft 
standaard geen pagina-indeling. Omdat dit toch wel eens handig 
is geeft dit programma na R regels L tege regels (zie regel 70 
en 830). Diegene die een printer hebben die wel een 
pagina-indeling kent, kunnen van regel 880 maken L=l; de 
variabeie R moet ook even aangepast worden. 

De gebruiker heeft ook de mogelijkheid om een header boven de 
listing te krijgen welke in dubbele breedte wordt afgedrukt. 


GEHEUGENGEBRUIK: 
Zeropage: 
HIE, HOI … printpointer linkerkolom 





HI2,H93 … 
HOA,HOS … 
#O6,HIT . 


printpointer rechterkolom 
aantal regels van totale programma 
werkpointer 














HOB... aantal regels per pagina 

BIP « aantal regels nog af te drukken op huidige pagina 
PRINTERKODES: 

#ID .…. 32 karakters per regel 

HIE ... 82 " " ii 


EIF ….. 132 n LL " 
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Uit de oude doos heb ik het volgende programma opgevist. De 
auteur is helaas hiet bekend (geen lid atom club). Ik heb het 


herschreven naar P-charme om het wat meer leesbaar te maken. 


Met dit programma kunt u zgn draadfiguren 5 dimensionaal 
tekenen en vanuit een andere positie weer bekijken. U kunt 
onder hoeken van 9B of 45 graden werken. Daarvoor heeft u de 
volgende commando's: 

Up (omhoog) 

Down (omlaag) 

Left (links) 

Right (rechts) 

Forward (vooruit) 

Backward (achteruit 

45 graden, moet gevolgd worden door twee van bovenstaande 
richtingen, 

b.v. @UR = 45 graden Omhoog naar Rechts 

C = Beeindigen (Clear) 


unaruE 


LE 


U moet de size (minimale grootte van elk stukje draad) opgeven 
en de X, Y en Z coordinaten van uw Vieuwpoint (gezichtspunt) 

Om te beginnen, probeer eens: 

Size = 5 


X-Coordinaat = 108 
Y-Coordinaat = 108 
Z-Coordinaat = 188 


Probeert u hierna eens voor een van de coordinaten -108. 


Bedenk wel dat als u een figuur tekent vanuit een min-riching 
(-188) u op R moet drukken om naar Links te moeten. 

Hierna moet u kiezen voort 

P = Put Picture (nieuw plaatje) 

6 Get picture (teken plaatje) 

C Continue picture (ga door met huidig plaatje) 


mn 


Met de laatste mogelijkheid kunt u een figuur tekenen en daarna 
vanuit een andere positie verdergaan. 


Als u de plaatjes wilt saven: doe het dan als volgt: 

Onderbreek bij "Size" het programma met de ESC toets. 

type in: PRINT &A+Z 

save d.m.v: #SAVE NAAM 5099 EEEE 

waarbij EEEE het zojuist gevonden eindadres is. 

Laden laat met #LOAD NAAM 

Ik heb een eenvoudig voorbeeld bijgevoegd, onder de naam 
PICTURE. 
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18 PROGRAM 3D-ETCH 


5 PROC VIEUWPOINT 

48 P.‚$12 

50 3D-ETCH" * 

48 'SIZE ”G 

78 ’X VIEUWPOINT *“L 





88 IN. “Y VIEUWPOINT "N 
90 IN. *Z VIEUWPOINT "M 





100 

110 ‘“G=GET PICTURE" * 
120 P‚"P=PUT PICTURE" 

158 P."C=CONTINUE PICTURE" 
148 INKEY R 

158 PEND 

168 

178 PROC SIZES 


S=L&L+M&M 





248 PROC POSITION 
258 D= TUe - Ve M-WEN 





268 T% (VEL UM) #4/ (HHD) +128 

278 D=96+ 3E (IKS NH (LEL VRM) DD / (HHD) 
288 PEND 

298 


300 PROC STARTPOS 
518 W=@; U=O; V=7 
320 POSITION 

330 MOVE C‚D 

340 PEND 


378 PROC PAT 

580 INKEY R 

390 DIRECTION; A?Z=R 
400 AzA+1 

410 INKEY R 

420 DIRECTION; A?Z=R 
450 A=A+1 

448 PEND 





46B PROC DIRECTION 





5 
490 IF R=CH"R"; 
500 IF R=CH"L"; 
518 IF R=CH"B"; 
528 IF R=CH"F"; V=v+G 
558 IF R=CH"@"; PAT 





568 PROC GET 
578 STARTPOS 
588 DO 

Se R=zA?Z 
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408 
618 
629 
438 
640 
650 
668 
678 
688 
60 
728 
718 
720 
758 
740 
758 
768 


IF R=CH"@"; GIT 
DIRECTION 
POSITION 
DRAW C‚D 
AzA+t1 
UNTIL APZ=CH"E" 
P.$7; INKEY R 
PEND 


PROC GIT 
AzA+1; R=A?Z 
DIRECTION 
A=Atl; R=A7Z 

PEND 





REM see HOOFDPROGRAMMA wann 
Z=#3000 


77@aVIEUWPOINT 


750 
790 
820 
810 
828 
B30 
840 


IF R=CH"G"; P=0 

IF R=CH"P"; P=l 

IF R=CH"C"; GOTO d 
SIZES 

CLEAR4 

STARTPOS 

IF P=@ GOTO c 


BSODINKEY R 


86De 


878 
582 
898 
908 
918 


920CGET 


930 


94ADESIZES; CLEAR4 


958 
960 


IF R=CH"C"} ZPA=CH"E";} GOTO a 
ZPA=R; A=At1 
DIRECTION 
POSITION 
DRAW C‚D 
GO0TO b 


GOTO a 


STARTPOS; GET 
GOTO e 
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88-kolomskaart DE OPBOUW. 


De B8-kolomskaart is opgebouwd rond de EF 9345 Video Display 
Processor, Dit IC valt in de zelfde catagorie als de 8271 
Floppy Disk Processor. Het is een inteligent IC dat de complete 
besturing van het beeldscherm voor zijn rekening neemt. Het 
enige dat je hoeft te doen is het vullen van een aantal 
registers en de opdracht aan de VDP te geven. 

De Processor heeft 14 adreslijnen terbeschikking zodat totaal 
16 Kb RAM aangestuurd kan worden. 

Zowel de inkomende als de uitgaande data/adresbus is 
gemultiplexd, zodat de hele zaak in een 4G-pens IC 
ondergebracht kon worden. 


De inkomende signalen : 


De laagste B adreslijnen en de 8 datatijnen zijn gebufferd door 
resp. een 74ls244 en een 74152545. De eerste zorgt voor het 
bufferen van de laagste 8 datalijnen en de tweede is een 
tweerichtings bufter. 

De selectie vind plaats d.m.v de hoogste 12 adreslijnen. A8-A15 
verzorgen via een 741530 (B input NAND) de voorselectie van het 
gebied #BEXX om daarna samen met A4-A7 en een 7415154 het 
gebied #BE2O-#BE2F te selecteren. 

Voor een goede werking is een aangepast phi 2 signaal nodig 
welke door een 7415123 wordt verzorgd. 

Verder is uiteraard nog een klok nodig en deze is opgebouwd 
rond een 12 Mhz kristal. 

Aan de andere kant van de processor is nog een stukje logica 
aanwezig voor de selektie van het videogeheugen, hiervoor zijn 
een 7415158 en een 7541521 gebruikt. 

Voor het multiplexen van geheugen data en adreslijnen is dan 
nog een 7415275 aanwezig. En dan natuurlijk nog de geheugen 
IC's. 


De werking : 


De adresbuffer is geklokt op phi 2 en wordt opengezet en 
uitgelezen als phi 2 laag is. De databus buffer wordt 
vrijgegeven als het juiste adres geselecteerd is (#BE20-#BE2F) 
en phi 2 hoog is. Dan wordt pen 19 laag en door het R/NW 
Signaal dat op pen t is aangesloten wordt bepaald of de data 
van de 9345 komt (lees) of naar de 9345 toegaat (schrijf). 


AB-AIS zorgen voor het highbyte van het adres, Om #BE te 
verkrijgen moeten Al4 en A8 laag zijn terwijl de andere 6 
adreslijnen hoeg moeten zijn. 

Deze 8 lijnen worden aan een 741538 toegevoerd, dit is een 8 
input NAND. Als van dit IC alte ingangen hoog zijn wordt de 
uitgang laag, met elke andere stand van de ingangen wordt de 
uitgang hoog. Dus om alle ingangen hoog te maken moeten AB en 
Al4 geinverteerd worden voor ze aan een ingang van de 741530 
worden aangesloten. Als we nu dus iets in HBEXX selecteren, 
wordt de uitgang van de 741538 laag en voor ieder ander blok is 
hij hoog. Deze uitgang wordt aan pen 18 en 19 van de 74lst54 
aangesloten. Als deze ingangen laag worden (#BEXX), wordt dit 
IC vrijgemaakt, A4-A7 selecteren nu het voor ons doel benodigde 
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stukje geheugen van #BE2O-#BEZF, dit is op pen 5 van de 7415154 
aanwezig. 

Dit signaal wordt voor het openehvan de 7415245 gebruikt, eerst 
inverteren en dan samen met phi 2 aan de ingangen van een 
741s88 (2 input NAND) aansluiten, beide ingangen hoog, uitgang 
laag en 7415245 is open voor data doorgifte. 

Het phi 2 signaal wordt ook nog aan 1 ingang van een 74ls125 
gelegd, door dit ic en de schkeling van weerstanden en 
condensatoren wordt dit signaal eerst vertraagt en daarna wordt 
de tijdsduur dat dit signaal hoog is verkort. Dit is 
noodzakelijk om een juiste timing te verkrijgen voor het 
uitlezen van het gemultiplexte adres/data signaal dat va de 
ATOMBUS afkomt. 

De klok van 12 Mhz wordt verkregn d.m.v, een 12 Mhz kristal met 
een kring zoals deze ook in de atom aanwezig is. 


Dit voor zover het de inkomende signalen betrefd. 


Dok hier hebben we een gemultiplexte adres/data bus. Om alles 
op tijd te laten verlopen is ook hier een klok signaal 
aanwezig{vergelijk met phi 2 van de atom) afgeleid van het 12 
Mhz kloksgnaal. Hier heet hij NASM. 

Als dit signaal van 1 naar @ gaat wordt het betreffende 
geheugenadres op de adresbus gezet en opdat moment komt de 
7415273 in aktie. Dit IC, genaamd een LATCH heeft de eigenschap 
dat een waarde díe op een bepaald moment (als de ingang clk van 
B naar 1 gaat) op de ingang wordt gezet, daarna tot de volgende 
wijziging op de uitgang blijft staan. Dit principe wordt ook 
bij de schakelkaart gebruikt om een voetje te selecteren. 
Vandaar dar je dit soort IC's niet uit kunt lezen, maar er 
alleen maar in kan schrijven. (WOR Write Only Memory). 

Het lowbyte (AB-A7) van het geweste adres staat nu continue op 
de RAM-IC's. Als dit gebeurd is, wordt de 7415138 geactiveerd, 
dit is het geval als de ingangen 4 en 5 laag zijn, en m.b.v. 
Alt-AtS wordt dan een block van 2 Kbytes ram geselecteerd. 
AB-A1@ zijn direct vanaf de 9345 op de RAM IC's aangesloten. 

Op de print is plaats voor 2 ram-IC's, 6116 (Z2Kb) of 6264 (BKb) 
statische RAM, zodat via een 741521 4 selectlijnen worden 
gecombineer voor Z 8Kkb IC's of select © en select 1 worden 
gebruikt voor 2 2Kb IC's. Als je dus alleen maar 6ii6's hebt en 
je wilt toch 16 Kbytes ram hebben, dan moet je stapelen tot 4 
verdiepingen en alleen de selectlijnen niet solderen en deze 
met draadjes aan de 7415138 verbinden. 

Via jumpers stel je in of je 6116 (f-g, h-j, bed) of 6264 (e-g, 
i-j, b-c, a-d) gebruikt. 

Als laatste stukje hebben we dan het video signaal, dit is 
oorspronkelijk een RGB signaal, dat door een mengtrap tot een 
composiet video signaal wordt gevormd. met behulp van Pi een 
potmeter van ong. 1 Kohm wordt dit signaal beter afgestemd op 
het ATOM signaal. Voor degene die een RGB monitor (mooi met 
kleuren) willen gebruiken, is deze mogelijkheid ook aanwezig, 
dan moeten de jumpers J1-J3 niet doorverbonden worden, en dan 
moet er een kleine buffer trap bijgebouwd worden. Als er 
belangstelling is hoor ik dat graag, zodat daar nog een 
schakeling voor gepubliceerd wordt. 

Onze ATOM heeft een mooi grafisch geheugen waar veel 
programma's voor geschreven zijn en dit willn we zonder teveel 
problemen met schakelaars of stekkers omsteken kunnen blijven 
gebruiken. Hiervoor is ook een kleine Schakeling gemaakt die 
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hierbij ook is gepubliceerd. Dan een laatste schakeling, deze 
dient ervoor om het ATOM video signaal enigsinds op te peppen, 


zodat alles bijelkaar niet teveel naar de contrast knop 
gegrepen hoeft te worden. 

Ik hoor ook al mensen roepen : maar ik heb helemaal geen 
monitor, maar alleen een tot monitor omgebouwdetaangepaste) TV. 
Deze kan ik mededelen dat ik de kaart in 80 kolomsmode op een 
omgebouwde Phitips TX TV heb zien werken en dit was redetijk 
goed te lezen, dus een monitor aanschaffen is nog niet direkt 
noodzakelijk, 


Hopelijk is alles een beetje duidelijk, maar mocht dit niet zo 
zijn schrijf of bel dan even met je vragen of opmerkingen, dan 
kan ik ze in het volgende nummer van ATOM NIEUWS 
verduidelijken. 


Op het moment dat ik dit schrijf (pinksterweekend) zijn de 
meeste onderdelen al binnen, en weet ik ook dat er 
waarschijnlijk een vertraging van een week optreed met de 
levering van de printen, omdat de belgische firma DIGIT bij het 
vervaardigen van de JBL print aan de originelen heeft zitten 
knoeien, waardoor EXTOL ze niet kon gebruiken en mij verzocht 
heeft de 2:1 originelen toe t zenden. 


Nico Stad. 





…… then use the Ad line for internal register selection, connect 
the other three signals to the control bus, and scrape the 
sheep crap oft your boots. 
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De 80-koloms soft !!1 


De software voor de BO-kolomskaart is vrij simpel recht toe 
recht aan geschreven. Ter verduidelijking toch een aantal 
punten en een uitleg van de soft op zich. 

Om alles goed te kunnen laten draaien hebben we een aantal 
zero-page adressen die normaal bij de ATOM voor het beeldscherm 
worden gebruikt ook hier ingebruik genomen. Dit zijn : 


adres oude funktie nieuwe funktie 

#DE LB cursor positie atributen byte 

#DF HB cursor positie scherm aan/uit en escape count 

#EB curs.pos. op regel (cursor positie op regel 

HEL cursor teken MAT-register processor 

#EG page mode aan/uit 40/88 koloms en max.regels op 
scherm 


Wat houdt dit in : 


$DE z 

Dit is het atributenbyte en dit wordt voor ieder karakter naar 
de processor verzonden. 

karakters : 

bit-7 @ 


bit-& 1 karakter wordt geinverteerd geprint, @ karakter wordt 
gewoon geprint. 


bit-5 1 dubbelbreed, B normaal. 


bit-4 1 dubbelhoog, @ normaal. 
bit-5 1 knipperend, @ normaal. 
bit-2-0 karakterkleur. 


Grafisch : 
bit-7 1 


bit-6-4 achtergrond kleur. 


bit-3 1 knipperend, @ normaal. 
bit-2-0 karakter kleur, 


#DF 5 

Dit adres wordt maar voor een deel gebruikt, er zijn nog 5 bits 
voor diverse toepassingen vrij. 

bit-7 1 is scherm uit, @ scherm aan. 


bit-0/1 werden gebruikt om bij te houden hoeveel maal de 
escape-toets is ingedrukt. Bij 2 keer wordt terug geschakeld 
van grafisch naar tekst scherm, bij 1 keer wordt alleen het: 
programma gestopt. 


HEB z 

Deze wordt alleen voor de cursor positie op een regel gebruikt 
Bit-7 is nog vrij, maar als deze gebruikt gaat worden moet de 
soft aangepast worden. 


SOKILUMMEN VIJ-KAARS MN. STAD ATOM NIEUWS PAG, 57 





HEl 2 

Het MAT register bevat een aantal gegevens met betrekking tot 
de cursor en het te printen karakter. 

bit-7 double high automatisch, er worden maar 12 regels 
afgedrukt, waardoor direkt het gehele scherm op dubbelhoog komt 
te staan. zie ook atribuut byte. 


bit-& met dit bit wordt aangegeven of de cursor getoond of 
niet getoond moet worden. 


bit-5 ® is cursor vast, 1 is cursor knipperen 

bit-4 B cursor is een blokje, 1 cursor is een streepje. 

bit-3 bestemd om atributen ín de margel{kanttijn) te plaatsen. 
bit-2-8 marge kleur 

HEZ wordt gebruikt om tijdelijk t.b.v. dubbel breed 
printen, het karakter te bewaren. 

#EG bit 5 en & zijn nog vrij en direkt bruikbaar, in de 
soft is hier al rekening meegehouden. 

bit-7 1 88 karaktermode, @ 40 karaktermode. 

bit-4-0 wordt gebruikt om het maximum aantal regels dat gepint 
mag worden aan te geven, in eerst instantie ivm de automatische 
dubbel hoog afdruk {bit-7 #DE). Een bijkomstigheid is dat het 
ook gebruikt kan worden om te zorgen dat een deel van de 
onderkant van het scherm blijft staan bij scrolling. 

Dit zijn de ZP adressen die in de soft gebruikt worden. Verder 
zijn de volgende adressen van belang : 


#BE 20 status register 


#BE21 data register. 
#BE22 data register. 


#BE26 regel nummer. 

#BE27 positie op regel. 

#BE 20 commando register, 

Verder zijn er natuurlijk nog veel meer zaken te melden, maar 
di kun je beter in de datasheet op zoeken, de HWC zal zorgen 


dat deze bij de regionale archieven trecht komen. 


De soft is als volgt opgebouwd : 


INITIALISATIE. 

118 waarde 88 koloms. 

120 waärde 48 koloms. 

130 — 148 aanroeppunt vanuit re-init P.$16. 


158 — 17/@ zetten van OSRDCH en OSWRCH vectoren. 
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188 — 199 preset atribuut byte en processor. 
208 — 288 opstart video processor. 
290 — 428 zetten van benodigde ZP adressen en printen van 


tekst in de serviceline. 

418 — 460 tabel met vector waarden. 

470 — 538 processor initialisatie waarden. 
548 — 1098 diverse hulproutines. 

DS-WRITE CHARACTER, 


1198 — 1138 aanroep printer en bewaren registers (A‚X,Y). 


t 


1148 1170 scherm aan P.$6. 
1188 — 1209 scherm uit P.$15. 


1218 -— 1239 als het scherm uit is, dan hoeft er niet geprint te 
worden. 


1240 — 1592 moet het printen tijdelijk gestopt worden, controle 
over deze routine vía de spatiebalk. 


1408 — 1440 delete P.$127. 

1458 — 1478 scherm schoon P.$12. 
1480 — 1518 carriage return P.$13. 
1529 — 1548 line feed P.$10. 
1558 -— 1620 vertical tab P‚,$11, 
1618 — 1735 back space P_$B, 
1748 — 1790 horizontal tab P.$9. 
1800 — 1829 belì P.$7. 

1830 — 1850 service line P.$17. 
1869 — 1898 re-initialise P.$18. 
1899 — 1918 home P.$30. 

1928 — 1990 escape count P.$27, 


2008 — 2019 controle 40/88 koloms. 48 koloms dan eerst 
contreleren op andere CTRL-codes. - 


2029 -— 2838 skip CTRL-codes, 
2840 — 2590 verwerken karakters. 


2518 — 2530 inverse P.$19, 
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2540 — 2568 dubbel breed P.$20 
2570 — 2598 dubbel hoog P.$22. 
2608 — 2628 knipperen P.#23. 

2630 — 2658 verwerken CTRL-codes. 
2670 — 2690 verwerken COPY-toets. 


3008 — 3670 OS-READ CHARACTER. 


De volgende keer zal ik de vertaling van de datasheet plaatsen, 
zodat dit voor iedereen begrijpelijk is. Tevens zal ik ook 
enige uitleg geven over het gebruik van de verschillende 
registers. 


Nico Stad. 








Come on up to my place, honey—'B show you my zoplied 
interfacing techniques, 
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B7 ABN. 
1 2 


B28 ag 
B 27 A10 


B26_A1l 
B25 At2 
824 A13 


82 _Ai5 


Bara eN. 
KE] 12 


B30 


B23 pg 
822 01 
B21 _D2 
B20 93 
B13_04 
818 _05 
817 _D6 
BĲ6_D7 
B23 e2 


B15__A0 
Bi4 at 
813 A2 
Bi2 AJ 
B11_A4 
B10 A5 
B 9 A6 
B8 A7 








Ri 


L TJ 
AriÂ 15 ze Ans 
1 1 
774 LS 123 _ 741 
B ü ad 
2 E) 4 1 
Clr 
® 
B 4 
Ls 
154 ef 
921222 N 


R/W. ND ID 6 pn f Hvs/k 


Sync in 
13 5 


EF 9345P 





FAC.C. 80-Kolomskaart 
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N1 -N6 >1C5 9 


N7 -Ni0 : IC6 Ground 
N3I N12 » IC10 pi 
Ll N 
©, 
Videe out 
Bs CJ 










6116(3-26) 
of 
6264 (1-28) 
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Nogmaals: Viditel op de ATOM 


1. Inleiding. 


Heel lang geleden, om precies te zijn in 1985 in het 
augustusnummer van (toen nog) Acorn Nieuws, op pagina 5, 
beloofde de toenmalige redacteur, namelijk ikzelf, een artikel 
over Viditel te zuilen gaan schrijven. 

U moet namelijk weten dat ik professioneel met Viditet bezig 
ben; acht uur per dag ben ik bij PTT plaatsvervangend chef van 
Viditel Techniek en Operations, d.i. de groep die er voor zorgt 
dat de Viditel centrales op korte termijn maar ook op lange 
termijn goed draaien. Je kunt dus wel stellen dat ik er alles 
vanaf weet. 

Nu is het zo, dat iedereen die bij PTT-Viditel met serieuze 
technische vragen komt, gratis en voor niks een keurig boekje 
krijgt thuisgestuurd, nl. “Viditel, techniek van de abonnee- 
&pparatuur”. Van dit boekje zijn er inmiddels duizenden stuks 
verstuurd, dus echt stilgezeten heb ik nou ook niet, Maar toch, 
belofte maakt schuld. 


2. Het programma. 


Ik ben uitgegaan van het programma van Bernard Rutgrink, dat op 
zich een verbeterde versie is van het programma van Bas Kasteel 
en Dolf den Hollander, zoals beschreven in Atom Nieuws 1985, nr 
5. 

Dit programma werkte wel, maar was toch duidelijk voor 
verbetering vatbaar. Zo moest je het binnenhalen van de code 
helemaal afwachten voordat er iets op het scherm zichtbaar werd 


en pas daarna werd het toetsenbord aktief. Verder had het 
programma nogal last van “hangen”, om volkomen onduidelijke 
redenen. 


Als eerste stap hebben we, diw.z. mijn zoen Hans en ik, de 
VDU-routine onder handen genomen. Uitgaande van VDU-PK, hebben 
we deze routine ontdaan van alle ballast, zodat alleen de 
eigenlijke afbeeldroutine overbleef. Vervoigens hebben we de 
typische Viditel-dingen toegevoegd zoals een cursor-blokje, 
dubbele hoogte, wrap-around per reget en per scherm en 
tenslotte hebben we de grafische tekens van Viditel in de 
karaktertabel bijgeplaatst. 

Deze nieuwe VDU-routine werd in het bestaande programma 
gemonteerd en bleek goed te werken. Ook lokaal, dus tussen 
toetsenbord en BASIC geschakeld. Als je dan typts PRINT 
527,"M","Dubbele hoogte” dan zie je ook dubbeie hoogte! 
Vervolgens werd de ontvangroutine kritisch bekeken: inplaats 
van konstant te gaan staan wachten op het binnenlopen van de 
bits wordt nu alleen nog gewacht op het eerste bit, het 
startbit, en vervolgens worden met de timer de negen volgende 
bits getimed. Onder interrupt, wel te verstaan, zodat in de 
tussenliggende tijd het afbeelden op het scherm plaatsvindt. 
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INTERRUPT ROUTINE 











ZET TIMER 1 BIT O t/m 7 naar BUFFER 


pas STATUS aan 


EINDE DATA 













BASIS PROGR. 


beeld KARAKTERS 
uit INPUT BUFFER 
af op SCHERM 








CONVERTEER naar 
VIDITEL KARAKTER 


VERZEND 
akter 
Strooaschema van het Viditel-programma. 


Tijdens het afbeelden bleek er nog tijd genoeg over om min of 
meer regelmatig een keyboard-scan te doen, zodat je wat terug 
kon zeggen. Maar helemaal foutloos ging dit miet: het verzenden 
met wachtlusjes werd soms verstoord door de laatste nog 
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binnentopende data. Het afzetten van alle interrupts tijdens 
het zenden bleek wel een aardige oplossing, maar helemaal 
netjes is dit natuurlijk niet; alle binnenkomende data moeten 
worden weergegeven, daar is het om begonnen! Om deze reden werd 
ook het zenden met een timer geprogrammeerd. 

Vervolgens werd het wachten op het startbit vervangen door een 
interrupt door dit startbit. Nu moesten we dus twee 
verschillende interrupts in de gaten (lees: status) houden! Het 
resultaat hiervan was nog meer tijd voor keyboard-scans. Ter 
illustratie: het verzenden van ingetoetste kommando’s of keuzen 
kan desgewenst geheel tijdens het binnenhalen van data 
gebeuren, want dit laatste heeft zijn eigen interrupts met 
ieder hun eigen afhandeling. 

Tenslotte werd nog de verwerking van het pariteitsbit in orde 
gemaakt: foute karakters worden nu afgebeeld als blokjes, 
waardoor onzin-karakters worden voorkomen. 


3. Hardware 


Alle in- en uitvoer wordt verzorgd door de standaard VIA, IC 15 
link 2 moet gesloten zijn. 

Er zijn twee versies van het programma; de ene werkt via de 
A-poort (YDT-TH/A. 3) en de andere werkt via de B-poort 
(VDT-TH/B. 5). 

De binnenkomende bits moeten worden aangesloten op CBI en B7 
‘A-versie: CAl en A7), de uitgaande bits zijn beschikbaar op BO 
(A-versie: AB). Dit zijn resp. de pennen A-12, A-3 en AIB van 
PL&/7 (A-versie: A22, A13 en A20). Let wel, de Arij is de 
bovenste rij van de lange connector aan de achterzijde! 

De aansluiting van de ingaande en de uitgaande data moet 
gebeuren viainverterendeSchmitt-triggers (74LS13 of 74LS14) of 
tenminste via inverterende poorten. Heeft u nog poortjes over, 
zoals bij de LS14, dan kunnen hiermee twee LEDs worden 
gestuurd, die aangeven of er data in of uit gaan. Heel handig! 
Eigenlijk zouden voor de hierboven genoemde buffers echte 
RS&252-C converters moeten worden gebruikt, zoals de MC1488 en 
-89, maar dan heb je ook plus en min 12 V nodig. Gelukkig zijn 
er cok modems die met gewone TTL-signalen genoegen nemen, dus 
dan is de hierboven gekozen oplossing goed bruikbaar. Wilt u 
tach een echte RS&232-C interface bouwen, dan vindt u in Radio 
Bulletin van januari jì. hierover een uitstekend artikel van 
ene H.J.C. Otten (nee, geen familie 0). 


Pen-nr. modem ATOM 
SIBNAAL. PTT/Protek 
Atom im Viditelmode 7 (&zext. voeding) 
Ontvangen data 4 3 
Te verzenden data 3 2 


Dataverbinding aanw. 8 - 





Signaal aarde ke) 1+5 


NB: Voor de A-versie CAI, A7 en AZ nemen voor CB1, B7 en BU. 
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4. Geheugenbeslag. 


Het programma, inclusief de VDU-besturing, beslaat de 
geheugenruimte van #2E00 tot #5C3@. Het gebied van #2808 tot 
#2EGS is werkruimte. In principe kan het programma dus in elke 
Atom draaien. 

De gebruikte Zero-Page adressen zijn: #92 t/m #98, plus #DE t/m 
HES voor VDY-besturing en #£7 voor de LOCK-status. Verder 
worden er in blok @ nog gebruikt #21C t/m #224, 


5. Gebruiksaanwijzing. 


Het bandje dat via het club-archief beschikbaar zal worden 
gemaakt, zal de geassembieerde A- en B-versie bevatten, naast 
de bron-codes in MINIAS en MINIAS zelf. 

Opstarten van het programma kan voor P-Chärme bezitters door na 
het laden met #RUN het commando “VIDITEL" te geven en voor de 
ongelukkigen die (nog) geen P-Charme hebben met #LOAD en LENK 
#37A7. 

Enkele toetsen hebben een andere, aan Viditel aangepaste 
betekenis gekregen: 


FUNKTIE CODE TOETS 
(blokje) 87E DELETE 
CURSOR-bestur ing: (pijltjes) 

LEFT #98 

RIGHT sar 

DOWN (LINEFEED) #@A 

uP #2B 

HOME, CLS #0 ETRL+L 

RETURN #OD RETURN 

ON #11 CTRL +G 

OFF #13 CTRL+F 

RETURN + DOWN #OD+#OA SHIFT+RETURN 
ENDBOX (confirm) #IB+84A COPY 
STARTBOX (cancel) #1B+#4B SHIFT+COPY 
Beeldattribuut #1B ESCAPE 
Terug naar BASIC == SHIFT+ESCAPE 


&. Vervoig 


Ons uiteindelijke doel is het Viditel-programma, inclusief het 
laden van telesoftware, in een EPROM op de A-bladzijde te 
“prakken. 

Allereerst moet dit programma echter uitgetest worden. Daarom 
stel ik het op prijs als iedereen die met dit programma aan de 
Slag gaat, aïle op- en aanmerkingen aan mij kenbaar maakt, Uw 
commentaar ontvang ik bij voorkeur via het prikbord van de 
Terwestenschool in Den Haag, tel.078-891466, of via Viditel, 
Vidibusnummer 2002290289. Krijgt u het programma helemaal niet 
aan de gang, dan kunt u mij 's avonds ook bellen: @1715-1929. 


Wij hopen, dat u net zoveel plezier aan dit programma zult 
beleven als wij aan het maken ervan! 


Ton en Hans Otten. 
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Een 88-kolommen-soft voor de Elektuur-80-kolommen-VDU-kaart 


Reeds in 1983 draaide er in onze regia een Elektuur-80-kolommen- 
VDU-kaart., In Acorntjesbrood 2.1 (feb. '84) pag.39 stond een eer 
ste voorzichtige softwarepoging voor deze kaart, direct gevolgd 
door een tamelijk uitgebreide versie in Acorntjesbrood 2.2 (apr. 
'84) pag.35. Dat er sinds die tijd nogal wat gesleuteld is aan 
deze software door mij (en anderen), zaì u zeer waarschijnlijk 
wel duidelijk zijn. Mij leek de tijd rijp om weer eens het een 
en ook wel het ander over de meest recente versie te vertellen. 
De belangrijkste aanpassing in de software werd veroorzaakt door 
een hardware-wijziging die het mogelijk maakt om het VDU-RAM als 
het ware naast de memory map te leggen. In mijn gevaìi is het ge- 
heugen gelocaliseerd op #880-HFFF en mijn geheugenkaart die nor- 
maal deze adressen ook bevat, heeft een inputsignaal dat, als 
het hoog is, deze kaart ‘disablet'. Ik heb deze input via de bus 
‘pen Zo Elektuur-bus) verbonden met de geinverteerde uitgang van 
de 74LS3D (op de VDU-kaart dus, pak het schema er maar even bij) 
die het beeidschermgeheugen selecteert. Met deze wijziging kun 
je de VDU-kaart al zonder busconflicten gebruiken, Het beeld 
schermgeheugen komt dan IN de memory map te liggen in de plaats 
van het daarvoor aanwezige geheugen. 

Als je echter 1 van de drie niet gebruikte inputs van de 74LS30 
verbindt met een of ander schakelbit dan kun je door dit laag te 
maken het VDU-RAM voor de processor ‘disablen’. De geinver teerde 
uitgang van de 74L550 blijft laag waardoor het normale geheugen 
beschikbaar blijft. 

Aangezien de VDUBD-routines volledig via vectoren afgehandeld 
kunnen worden, kun je in deze routines tijdelijk naar de VDU- 
kaart omschakelen door het schakelbit hoog te maken. ‘t Is zelfs 
mogelijk om een basic-programma op #808 te RUNnen, dat bovendien 
nog allerhande informatie afdrukt. 

Als schakelbit heb ik gekozen voor CA2 van de 6821 op de GDOS- 
kaart ‘die hopelijk binnenkort voor iedereen beschikbaar is). 
Dit bit (op pen bc van de Elektuur-bus) is na een reset hoog, 
zodat vroegere routines nog steeds werken. De nieuwere routines 
schakelen via dit bit met het bovenvermelde resultaat. 

Op dit moment kom ík op een zeer betangrijk punt in deze, en dat 
is de compatibiliteit tussen VDUBO-routines van ve“ertei fabri- 
cage. Het is duidelijk dat als er niet bijtijds een paar eenvou- 
dige afspraken worden gemaakt, we enorm in de problemen komen 
met de overdracht van programma’s die op een 8@-kolommen-kaart 
worden geacht te draaien. 

Uit het bovenstaande blijkt dat we minstens X tot de macht 3 
configuraties van de kaart kunnen hebben. Voor de RAM-adresse- 
ring bestaan X mogelijkheden, voor de ERTC-adressering eveneens 
X stuks en voor het schakelbit nog wel veel meer dan X. Om dit 
te ondervangen heb ik de software voorzien van een zgn. jump- 
tabel. Via de jumps kun je niet zozeer een bepaalde adressering 
plegen als wel een bepaalde actie bv. het lezen van een karakter 
op een bepaalde piaats op het scherm. Het enige dat je nu neg 
hoeft te weten is het startadres van de software en de vorm en 
betekenis van de tabel. Als we de tabel altijd hetzelfde houden 
blijft alleen het startadres over en via dit startadres kan pro- 
grammatuur uitwisselbaar zijn. 
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Mijn jump-tabel ziet er voorlopig als volgt uit: 


startadres JMP VDU' INI 
startadres+ 5 JMP VDU'PUT 
startadres+ & JMP VDU'GET 
startadres+ #9 JMP VDUEN 
startadrest+12 JMP VDU'DIS 
startadres+15 JMP VDU' IND 
startadres+18 JMP VDU'PXY 
startadrest21 JMP VDU'GXY 


initieer de CRTC en OSRDCH en OSWRCH 
plaats karakter A op positie X,Y 
lees karakter A van positie X,Y 
schakel beeldschermgeheugen in 
schakel beeldschermgeheugen uit 
plaats de cursorpositie op scherm 
plaats de cursor op positie X,Y 

lees de cursorpositie in X,Y 


Met A, X en Y worden de registers van de processor bedoeld. 

Om bv. een uitroepteken op de 63e positie van de 3e regel te 
plaatsen doe je het volgende: 

_DA@CH" |" \ ascii code 





LDX@5T \ 0 <= positie <= 79 

LDY@2 \ @ positie <= 24 

JSR startadres+3 \ VDU'PUT 

RTS 

of, in Basic, A=CH"!"; X=59; Y=2; LINK (startadres+5) 


en zoals je ziet hoef je totaal niet te weten hoe de kaart eruit 
ziet. Je hoeft zelfs niet te weten wat voor kaart je hebt! 

Wil je de cursorpositie weten dan roep je VDU'GXY aan{(JSR start- 
adres+21) en in de X- en Y-registers komen de respectievelijke 
‘offsets’ te staan (zo'n teesactie kan alleen in machinetaal). 


De cursorpositie, genoemd achter JMP VDU' IND, is een faciliteit 
waar ik erg veel behoefte aan had in de word pack. Deze routine 
taat nl. rechtsboven op het scherm in cijfers zien wat de huidi- 
ge cursorpositie is. Deze routine wordt in de read-character— 
routine ook aangeroepen, zodat je bij bv. het intikken van een 
programma doorlopend kunt zien waar de cursor precies staat. In 
de write-character-routine wordt hij niet aangeroepen, omdat dat 
een ontoelaatbare vertraging van de ‘output’ zou opleveren. Als 
het echt nodig is, kun je de indicatie forceren via LINK start 
adres + 15. Bv. P.$12;D0 P."."sLINK(startadres+15); UNTILG 


De read-character-routine is ook op de volgende punten veranderd 

t.o.v. de versie in Acorntjesbrood 2.2: 

= de cursor knippert als het toetsenbord wordt gescanned; zodra 
er een toets is ingedrukt verandert de cursor in een permanent 
blokje 

— contrelcodes worden geexecuteerd en niet opgeslagen in de in- 
putbuffer; wil je in speciale gevallen dat dat toch gebeurt, 
dan zorgt de combinatie SHIFT-CTRL-toets daarvoor 

— de DELETE-toets werkt nu ook op de home-positie goed 

- de LOCK-toets werkt als gebruikelijk, maar levert nu bovendien 
een piepje op, zodat je het hoort als je ‘m (per ongeluk?) in- 
drukt 

- de combinatie SHIFT-8 levert de underscore op; dit is bv, mak—- 
kelijk in SALFAA waar de underscore als leesbaarheidskarakter 
in labels gebruikt mag worden 

= aan de lijst van CFRL-acties zijn CTRL-D en CTRL-E toegevoegd: 
— ETRL-D wist vanaf de rursorpositie totaan het eind van de- 

zelfde regel 
= ETRL-E wist vanaf de cursorpositie totaan het eind van het 
zichtbare scherm 


P.S. De source is nog steeds in Symbolische Assembler. 
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gd 


Heeft u dat cok wel eens? U zit rustig naar de televisie te kijken 
waar sen lieftallige dame u duidelijk probeert te maken waarom uv moet 
Blijven kijken,daarbij ziet u dan beelden van te verwachten 
pragramnma's, 

Die beeiden zijn echter in de meest onmogelijke posities verschoven, 
uitgerekt, verbogen of in elkaar gemonteerd, Op dat moment begint het 
strenalinegehalte in uw bloed schrikbarend op te lopen en u vraagt 
zich radelcas at: HOE WERKT DAT 7 


Toch is de achterliggende techniek vrij simpel (ugh): elk beeid dat 
‘getransformeerd’ moet worden, wordt gedigitaliseerd en opgeslagen in 
een beeldschermgeheugen, van daaruit leest een computer elk pixel 
‘beeldelement), transformeert dat via een of andere formule, en 
plaatst dat op de berekende positie in een ander beeldschermgeheugen. 
Katuurlijk moest geprobeerd worden om dat in een bescheiden vorm op de 
ATOM te implementeren: 


Het programma GRED (ofwel: GRaphics EDitor) maakt het mogelijk om 
transformaties uit te voeren met tekeningen, tekst kortom alles wat we 
op het scherm van de ATOM kunnen krijgen. 


Voordat overgegaan wordt tot de beschrijving van het programma, werst 
nog wat belangrijke punten over (ATOM-)graphics. 


= Als we een puntje op het scherm plaatsen, dan geven we zijn 
positie aan met twee getallen: een X en een Y -waarde. 

Als we de CLEAR 4 -mode gebruiken dan kunnen we 256 bij 192 punten 
gebruiken, Dit stelsel is ‘wiskundig’ te omschrijven als ‘een 
assenstelsel met als oorsprong (0,0) een X-as die ligt in de 
richting van de vector (255,0) en een Y-as in de richting (0,191)" 


— Alle informatie van de tekeing staat in het geheugen van #8000 
tot #9B00, We kunnen die tekening echter verplaatsen, LOADen en 
SAVEn omdat het een normaal stuk geheugen is. 


VOORBEELDEN: 
stel er staat een bloedmooie tekening op de buis 3 we tikken dan: 
CTRL-U [ESC] ‘stop (tekst) uitvoer naar scherm > 
XSAVE "PLAATJE" BO00 9800 {tekening naar band} 


af: COPY #8000, #9800, #2800 {naar “buffer” met JOS-BOX2 
of: As#2B0DF,B=RBO00 TO #90; 7A=7Bj AzAtijN. 


CTRt-F [ESC] scherm mag weer gebruikt worden} 
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Het programma maakt gebruik van 2 beeldschermgeheugens: behalve het 
‘echte’ beeldschermgebied wordt het gebied van #2800,. 84000 gebruikt. 
Het programma ’'leest’” de tekening vanaf #2800, transformeert deze dan 


en plaatst het resultaat vanaf #8000 {zodat we het resultaat direct 
zien), 


de kunnen de gewenste transformatie aangeven door een nieuw 
assenstelsel te beschrijven. 
VOORBEELD: (zie afb, 1) 
Stel we willen een bepaalde tekening 2 maal zo klein maken en deze 
ongeveer in het midden van het scherm plaatsen, 
de weten: LENGTE K-as: (25&/2) =128 en LENGTE van de Y-as: (192/2), 
Nu nog even de oorsprong: we weten dat er aan beide kanten an de 
X-richting (128/2=) 64 over iss X-waarde oorsprong=62, zu vinden we 
voor de Y-waarde: 47, 
RESULTAAT: nieuw stelsel: 0=(63, 47); X-as=( (634128) ,0); 
Yras= (0, (47496) ) 





Voordat de transformatie uitgevoerd kan worden moet de tekening wel an 
het gebied vanaf #2800 staans dit kunnen we doen door de tekening”te 
ropieeren uit het beeldscherageheugen, of het van band te halen met: 
ELOAD "NAAM" 2800, 

Voor de meest voorkomende gevallen heeft het grogramma een iets 
eenvoudiger methode on de gegevens van het assenstelsel in te voeren: 
U geeft dan van het nieuwe assenstelsel: de oorsprong, de hoek dat het 
stelsel verdraaid is t.o.v. het oude stelsel en de lengtes van de 
(nieuwe) X en Y-as, 


VOORBEELDEN: 


A) (gegevens van vorig voorbeeld) 
Oorsprong: (63,47); Hoek:0 (graden): Lengte X-as:128; Lengte 
Y-as:96 

B) je wilt een tekening 15 graden draaien op ware grootte, met de 


oorsprong in (90,0) : 
Oorsprong: (90,0); Hoek: 154 Lengte X-as: 256; Lengte Y-as: 192 


OPMERKING: hier wordt aangenomen dat de hoek tussen de X- en de Y-as 
90 graden 15, wilt u dit anders dan moet u toch de coordinaten van de 
uiteinden van de assen invoeren, 
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dieronder volgt een korte omschrijving van de functies: 


1 DRAAIEN: Eerder besproken: invoeren: hoek, oorsprong (Ox en Oy) en 
lengtes assen. 

ASSEN: invoeren: Oorsprong, uiteinde X-as (Xx,Xy) en uiteinde 
Yoas (Yu, Yy) 

LADEN: LOAD een tekening naar #2800,,#4000 

COFIEËREN: naakt een kopie van #8000..#9800 naar #2800, .#4000 
CLEAR: maakt beeldscherm schoon 

PLOTFactor: (rechtsboven in beeld): is plot, 2zinvert, Z=clear 
SAVE: schrijft #8000,.#9800 naar band 


rs 


Ie de 


Opmerking: Onder het hoofdmenu zult u wat rare tekens tegenkomen, dit 
heeft te maken met het gebruik van het geheugen #B000,,#B8200 door 
zowel de tekst als de graphics: gewoon niet op letten, 


(zie afb. 2) Bij de onderdelen t en £ moet cok nog de keuze gemaakt 
worden tussen ‘vergroten’ (1) en ’verkleinen’ (0), Het verschil tussen 
deze twee is als volgt: 

bij ‘verkleinen’ (0) leest de rautine punt voor punt de 
oorspronkelijke tekening, tot een actief (wit) punt is gevanden, dar 
pas wordt een transformatie berekend en het berekende punt wordt op 
het scherm geplaatst. Als we met deze methode willen vergroten, dan 
vallen er ’gaten’ in de tekening. 


Bij “vergroten” (1) wordt precies anderson gewerkt: punt voor punt 
wordt nu het beeldscherm afgelopen, elk punt wordt ‘teruggerekend’ 
naar de plaats waar hij in de originele tekening moet staan, dan pas 
wordt gekeken of het punt ‘aan’ of ’uit’ staat, 

De laatste methode is altijd (ongeveer) even traag, bij de eerste 
methode is de snelheid echter afhankelijk van de hoeveelheid wit in de 
tekening. 


Deze versie past in de 2K gestapeld geheugen, memory map: 
#9800 


#990G 





H9DDÒ 


1 ASSEMBLER-routines 
ESEEE 
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KK GREED UK 


>LIST 
109#21C=t 3; 24E1=03 Z=#8000; W=1048576 
207#BO00=0; 
ZOP.SEO" 11 $ Z#BOLFSRBO+?WZIC 
AOP.“ 2: ASSEN"*" 53 LADEN**“ 42 COPIEREN"* 
Sor. CLEAR"”“ 6: PLOTF,**" 713 SAVE"? - 
wr 6113 IN. “KEUZE"Kj U. KCBA. K>O 








BÒIFK=2G0S. b 

GOIFK=2G0S. «4 605. e# 6. 30 

ZOO IFK=4G0S5. d5 G. 20 

11O1FK=5; P18=#505 OLEAR4; 71B=#99; 6. 20 

12OIFK=b PR21C=PH21C+HI-2210/5KTGG. TO 

130IFK: OS. z;GOS.e; G. 20 

140C=C-A;D=D-RjE= (E-A)X256/192;F=(F-B)#256/192 
150IN. "VERGR(1) OF VERKL (0) “Ms; RBOO0=2405 6OS5.z; IFM=1;G. 170 
16001. #9F14; LI, HFFES; B. 20 

17OK= UIC) — (DRE) QE (F/ (K/WDD 4 RU -D/ (K/MD) 

(-E/ (KAW) 3 TEL (C/ (KAM 

ZL ULAKG+BES) /256) 3 VEL (LAERHBET) /256) 3 Am-Uz Be-V 
sDeRsE=S; F=Tj LI. #9FA2ZjLI. BFFES3G. 20 




















2004608. ziJ #2800; F- I=Z TO #97FFS.4; ' Ie! Ig JeJ+AiN. RR. 
210aG0S; «IP. “KEKDRAAIENKSE“”” ; IN. “HOEK “R 
ZZOIN 





"ax“A,“oY”B, "LENGTE X"X, "LENGTE Y"Y 

LCOS (RKPI/ 180) X+A) 3 DA (SIN(RKPI/ 180) €X+B) 
ZIA-(SINCRKPI/180) YI) ; FEZ (COS (RKPI/180) KY+D) ;R. 
25O0bGOS. 1; P, "KERASSENKRK"" 

Z6OIN. "OEI "A, "DIZ "B, "xX"C, "KY"D, "XE, "yY" FER. 
270c*LOAD2800 

ZBOR. 

290eP.$21; KSAVEBOOO 7800 

ZOOP. $6; R. 

3102J=2;F. 1=#9BOOTOKIBFFB. 4; 'WBO=! IG tI=! Jz Je! H80z JEJ+AGN. 
Z20R. 

3ENyJ=ZjF. 1=#9BOOTORIBFFS. 45 'I=!J; ! J=W20202020; JeJ44j Na 
340P.$3O;R. 

350xf.I=Z TOWBOFFS. 45 ' 1=#20202020;N. 3 P.$50;R. 










Y A_a.P. 


OPMERKING: Het programma past precies ; gebruik dus bij het intikken 
niet meer spaties (of andere tekens) dan er nu in staan. 


PAB. 52 ATOM NIEUWS GRED A. DE BRUIN 





KKK GRED.ASSEMBLER XX 
> 
LIST 
REM KKAKKIRRK ER KK AKKK KKK RRA OE EK 
REM * ASSEMBLERROUTINES VOOR GRED * 
REM * (C) DE BRUIN, BALJUW 11, NAALDWIJK %X 
REM HAAR KKKEK KIKKER KR KEK KEK ER KK AEK KEK KKK KK AA KK 
10 FP.S$12" XX GRED (CDDE) %kk”T 
2OP,""ASSEMRLERGEDEELTE VAN GRED"? "GEBRUIKT s#B0, #93"? 
20 GOSUB c 
40 B=0sP." VERKLEIN z LINK #",&MM4* 7 
50 P.“ VERGROOT z LINK #",&6GG0 
60 END 
Jöc P.$2l;DIM WVE,RRS, PPZ, MMA, HHIZ, GGO; F. I=1T024 P=#DDO 
BOL 
PON Kkinitializatiek 
180; VVE LDA@128; STAB7; LDAGHEOs STA#8E; LDABHZF ; STAHB4 
190 LDAE1:STA#E&; LDAEO; STAHB1; STAHEZ; STAHBS 
200\ 
Z1ON\ tzoekk 
Si0 zVVO LDY#BEELDA(HBS) , Ys ANDHG7; BNE VVZ 
320 zVV1 INC #81;CLCzROR #87; RCT VVO;LDA B128;STARB7: INC #85 
230 LDA #81;CMP BOZENE VVO;LDABÓO; STA#B1; STAHBS 
240 SEC;LDA#85; SBCERZOs STAHET; LDA#B4ISBCBO sSTAHBA 
550 INC#HB2;LDAE1SZ; CMF #BZ;BNE VVO; LDA@OsSTAHBA; : VVZ RTS 
ZAO 
370\tvermk 
A6O:RRS LDA#TZ4; STAHBB; LDAHSZF ; STAHES; LDAH325; STAHBAs LDAHZ40 
470 STA#SE; LDA#526; STARBC;LDA#S41; STAHED; LDA#327 3 STARBE; LDAHS4AZ 
480 STAF; LDABO: STA#F 1; STAH9Z; STAHSS3 STARBO 
490 INX;LDA#BB, Xs ANDE@128; BEG RRS: LDAEGHFF; STAKBO 
SO :RRI DEX 
510 2RRO LSR#90; BCC RR; CLC; LDA#BE, Xs; ADCHP 1; STAHP 1; INX 
520 LDA#88, X3 ADC#92; STANI 2; DEX; LDARBO; ADCH 5; STAHSS 
550 :RRI LDA#SO; BEG RR2 
540 ASL#8B, X3 INX; ROL#BB, X; DEX; ROL #80 
550 JMP RRO 
Z&ON 
S70\deling* 
&20\ 
GAO:RR2 LDYRI1 
650 LDA#92; STAR 1; LDA#9E; STAKPZ; LDAGO; STARTS; LDA 2; ANDE1 20 
&&Ò BEQ RR4;sLDAG#FF;STA#9Z 
&70 :RR4:RTS 
4BON 
6ION\*kXberekeningktt 
770\ 
780:PPO LDXBO;LDA#B1s STA#SO; JSR RRS 
790 LDA#S 1; STAHSA:LDA#9 2; STARSE 
BOO LDX@4;LDARBZ; STARSOJER RRS 
810 CLC; LDA#SA; ADC#S1 ; STAKSA; LDA#SB; ADC#9 2; STAKSE 
320 ELC; LDA#SA;s ADCH#E22; STARSA; LDANSB3 ADCH3SD; STAKSE 
850 LDX@2;LDA#B1; STA#90; JESR RRS 
BAG LDARG TARSCs LDA#F 25 STAHSD 





EAD Ken 
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850 LDXE4;LDA#H2; STA#SO; JSR RRS 

840 CLC;LDA#SC; ADCHS1 ; STARSC; LDASSD; ADCHG 2; STAHSD 

870 CLC;LDA#SC; ADC#E2E; STA#SC 5 LDAKSD3 ADCHSIE; STAHSD 

B80 LDA#Z1C; STARSE 

890 RTS 

ZÜON\ EE verkl cortran £X% 

P1O:MM4 JSR VVS 

220:MMO JSR PPO;LDAKSB; ENE PP5S;LDA#SD; BNE PPS; JSRF 7BO; : PPS 
PEOrMMZ LDAKOG; BEG MMA; JSR VVI; JMP MMOzsMMi RTS 

9403 

950 P=P 

969L 

970 \ EEE plottest &4% 

1080: HH2Z 

1090 LDA @128;STA #87;LDA @#28;STA #84 

1100 LDA @#O ;STA #83 ;STA#9E 

1110 SEC;LDA @191;SBC #5C;STA #5C 

1120\ 

11ZO\VERMENIGVULDIG ?#5C MET 32 

1140 LDA&O;STA #89;LDX 85 

1150 :HHO 

11460 TLC; ROL#SC; ROL#BP ; DEX 

1170 BNE HHÔ 

1180 CLC:LDA #83; ADC #5C;STA #835;LDA HBAGADC #89;STA #84 
1190 CLC;LDA #SA;ROR A:CLC:ROR AsCLC;ROR A;STA #85 

1200 CLC ;ROL A;ROL A;ROL A;STA #89 

1210 SEC ;LDA #S5A:SBC #88; STA #86 

1220 LDA #86; ADC @8;STA #A6ECLCHLDX #84 

1230 «HHS 

1240 BEQ HHB;ROR #97; DEX 
1250 JMP HHS 

12460 zHH8 

1270 CLC;LDA #83;ADC #B5;STA #85;LDA #84;3ADC @O5STA #84 
1280 LDY @#003LDA(RBS), YHAND #87 

1290 BEQ HHI2 ;LDA@1; STA#9T 

1300 sHHI2 


1340 RTS 

IEZON XXX cortran vergroten &3k 

1410 :6GGÓ 

1420  LDAB#FF ; FHA: PHA 

1430 2061 

1440 F1A; STA#B1; PLA; STARB2; INCHB1; BEG GG2 
1450 JMP GGS 

14460 :G62 INC#B2;LDA#A2;CMPE192; BEU GG3 
1470 2655 LDA#B2; PHA; LDA#B 1; PHA; JSR PPO 
1480 LDXe4 \NU DOOR 16 DELEN 

1490 2 Gh&; CLC; RORKSB; RORKSA; CLC3 RORKSD; RORHSC ; DEX; 
1500 BNE GG&:LDA#SB; HNE GG4;LDA&SD; ENE GG4 
1510 LDA®SC; CMF@192; BCS GG4 


1520 JSR HH2;LDA#95; BED GG4 

1520 PLA; STA#SA; PLA; STANSC ; PHA; LDA#SA; PHA 
1540 LDA&O; STA&SB; STAWSD; JSRHF7BO 

1550 :GG4 

1560 JMP GG1 

1570 :6G35 RTS 

15801 

1SPONEXT 

1660 P,$& 

1O1ORETURN 


DE BRUIN 


A 


OREL 
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Onders 
"EILMN 


218t 
228 
238 
248 
258 
278 
288 
290s 
318 
328 
358 
340 
358 
368 
378 
382 
398 
400p 
410 
420 
450 
440 
458 
468 
470 
4808 
490a 
50) 


taand programma geeft samen met de bijbehorende datafile 
EG" een mooie grote digitale klok op het scherm. 


REM (C) MICROBE 1985 
t#25=#9800 
DIMLL102,S10,T10 
F‚L=@TO122;LLL=99PEN, 
Z=t2300 
P.,$21;GO0S.a;GOS.a 
P.$&"HOELAAT IS HET? (VB. 14:10:08) "" 
IN. $#$2200 

CLEAR4; FILL#8000,#9800, —1 
X=87 ;Y=151;G0S.p 

X=87 ;Y=1536;5GOS.p 
X=175;5Y=151; GO0S.p 
X=175;5Y=136; GOS.p 


REM TIME Q 
S#2210=5#2200 
T=#2200; GOS. s 
LINKLL88 


A=?#80; B=7#81 

T=#2210;GOS.5; IF$#2218=$#2200; 6. t 
?#BD=A; P#81=B 

LINKLLO 

$#2200=$#2210 

G. 208 

END 


T27=127+1; PAUSE 38 
IFT?7=#3A; T27=850; T?6=T?6+1 
IFT?6=#36; 12 
IFT?4=83A; T74=#30; T73=T2541 
IFT?S=#563 T25=#30; T21=T21+1 
IFT?1=#34; IFT?0=#52; T?1=#30; T70=#30 
IFT?1=#3A; T71=#30; T?0=1+T?8 

R. 












MOVE X,Y ;PLOT 2,1.0 
PLOT @,-2,-1;PLOT 2,3, 
PLOT 8,-4 -1;PLOT 2,5, 
PLOT B,-5,-1;PLOT 2,5, 
PLOT @,-4,-1;PLOT 2,3, 
PLOT @,-2,-1;PLOT 2,1, 
R. 


Pez 
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S18L 

SRONKIIN NIN NNN KANN IKUN IN KINK KNA HAN HHA II NN KK KNA 

S3O:LEO \ SECONDEN 

540 LDAGCI;STA#222B 

S5® LDA#2217;CMP#2207; BNELL2;LDA@D; STA#222B; BEGLL 10 

560 

5/B:LL2 \ VERSPRONGEN: VAN 9 NAAR B7 

588 CMP@#SZ; BNELL 10; LDA#A6; STAHBA; LDAHA7 ; STAHSB 

390 LDA; STARZ22B 

GOD INK IE NI IEN INI IMMINK KIN MMK NN NHN N NAK KNN KKK KAK NAI KH 

&1O:LL10 \ SECONDEN: TIENTALLEN 

620 LDA@1;STA#2229 

658 LDA#2216; CMP#2206; BNELL 1 2; L DAGO; STA#2229; BEOLL 20 

640 

&5Ö:LL12 \ VERSPRONGEN: VAN 5 NAAR B? 

660 CMP@#HSD; BNELL2B; LDA#A4 ; STAHBB; LDAHAS; STAHBI 

670 LDA@F; STAH2229 

KEE”: eokedkadkedkaiediaeskarkecha ea kei a hadiadiadholkadiie oliakedda ke koke keke kolkende keken Behe ekbaksd 

6&90:LL28 \MINUTEN 

708 LDA@1;STAH2227 

718 LDA#2214; CMP#2204; BNELL22;LDA@B; STA#2227; BEGLLSG 

728 

758:LLZ2 \ VERSPRONGEN: VAN 7 NAAR B7 

740 CMP@HZB; BNELL 30; LDAHAG; STAHBL 5 LDAHA7; STAHO7 

750 LDAEF;STA#ZZ27 

TED NAI IAK NN NNI MIN UIN IEN III UNK HNHK INN KINK H IK HH IH 

77O:LLSB \ MINUTEN TIENTALLEN 

780 LDAG1;STA#2225 

798 LDA#22135; CMP#2203; BNELLS2; LDAGA; STA#2225; BEGLL 40 

528 

B18G:LL32 \ VERSPRONGEN: VAN 5 NAAR 87 

828 CMP@#3O; BNELL40; LDAHA4; STAHEGG LDA#AS; STAHBS 

858 LDA@7;STA#2225 

BAON ARR RN KAKKEN KARIN KAI IH INI IKN III IEN HEIEN HK 

850: L4D \ UREN 

860 LDA@GI; STA#2225 

870 LDA#Z211;CMP#2201 ; BNELL42;LDAGD; STA#2225; BEGLLSO 

982 

8ID:LL42 \ VERSPRONGEN VAN 9 NAAR 07 

900 CMPE#SB; BNELL SO; LDAH2201 ; CMPEHSS; BNELL4 13 LDARAG; STAHBZ; 
LDA#A7; STA#85; LDAGF; STAH2225; BNELLSG 

910 

F2O:LL41 \ VAN 5 NAAR Z 

950 LDAHA2; STA#B2;LDAHAS; STAHSS 

948 LDAES;STA#2225 

PSD NANRKIR KRIKKE NINE AKKI KA EAI KNIE III HI A IEI HH 

96O:LLSD \ UREN TIENTALLEN 

978 LDACGI;STA#2221 

88 LDA#2210; CMPH#H2200; BNELLS2;LDAC@B; STAH#2221; BEOLLSS 

990 

1008:LL52 \ VERSPRONGEN VAN 2 NAAR 07 

1018 CMP@H3A; BNELLSSsLDAHADs; STAREO: LDAHA1 «: STABB1 


KLOK 
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1222 
1252 


1248: 


1970 


12828: 


1898 
1100 
1119 
1128 
1158 
1148 
1158 
1168 
1178 
1182 
1198 
1208 
1218 
1220 
12508 
1240 
1252 
1260 
1278 
1280 
1298 
1500 
1518 
1320 
1538 
1348 
1550 
1360 
1370 


13588 
1390 
1418 
1420: 
1450 
1440 
1450 
1460 
1478 
1480: 
1498 
1500: 
1518 
1525: 


1558 LDA#2221,X;BNELL&9; \ DIT CIJFER NIET? 


1548 


155@:LL&& NOP; NOP; NOP: NOP: NOP; NOP; NOP; NOP: NOP 


LDA@?; STA#2221 
LLS5 JMPLL&G 


LL80 


LDA@H3F ; STAHAI; LDA@#4C; STA#AD; \ 29 
LDAE#43; STAHAS; LDACHCE; STARA2; \ 3D 
LDA@#4B; STAHAS; LDA@H44; STAHAA; \ 5D 
LDA@#4C; STARA7 ; LDA@ERCO; STAHAG; \ 90 
LDA@#51;STA#AO; LDAGHEO; STAHAG; \ O1 
LDA@#57 ; STAHAB; LDA@#DO; STAHAA; \ 12 
LDA@#5C; STASAD; L DA@#20; STAKAC; \ 23 
LDA@#61; STAKAF; LDA@#4D; STAHAE; \ 34 
LDA@#66; STA#BI ; LDA@#GE; STAHBO; \ 45 
LDA@#&B; STA#B3; L DAG#BO; STAHB2; \ 56 
LDA@#70; STA#B5; LDACHAD; STARBA; \ 67 
LDA@#75; STA#B7;LDA@#CO; STAHBG; \ 78 
LDA@#7A; STA#B9; L DA@#EG; STA#BB; \ 89 


LDA@#C1I;STA#222B 5 \ UREN TIENTALLEN 


LDA@#C6&; STA#2222 5 \ UREN EENHEDEN 


LDAG#CC;STA#Z2224 ;\ MINUTEN TIENTALLEN 
LDA@#D1;5STA#2226 3\ MINUTEN EENHEDEN 
LDA@#D7; STA#2228 ;\ SECONDEN TIENTALLEN 
LDA&#DC; STAHZ222A ;\ SECONDEN EENHEDEN 


LDA#2280; JSRLL?@; STA#81 ; TYA; STA#ED 
LDA#2281 ; JSRLL 90; STA#B3; TYA; STAHE2 
LDA#2203; JSRLLIG; STAHBS; TYA; STAHBA 
LDA#2204; JSRLL 90; STA#B7; TYA; STA#86 
LDA#2206; JSRILL 90; STA#89; TYA; STAHGG 
LDA#2207; JSRLL 90; STA#BB; TVA; STA#BA 


LDAE1;STA#2221; STA#22253 STAH2225; STAH2227; STAH2229; 


STA#222B 
JMPLL6O 


Lt90 
SEC; SBC@RSB; CLC; ROL. As TAX 
LDA#AG „X3 TAY;LDAHA7 ,X 

RTS 


LL68 

LDA@7;STA#7G ;\ FRAME TELLER 
LL&4 

LDAG@10;STA#7D ;\ CIJFER TELLER 
tL68 LDX#7D ;\ LAAD CYFER IN X 


LDXE8 ;\ EEN POOSJE WACHTEN 
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1568 DEX; BNELL 66; BEOLL7S 
1570:LL6? LDA#BE,X;STA#7A 3 \ LAAD FILM POINTER 
1580 LDA#S1 ,X; STA#7B 

1590 LDA#2220,X; STARBC ;\ (RE)SET PLOT POINTER 
1608 LDAG#8I;STAHED ;\ HOOGTE PER 4 REGELS 
1618 LDXEB ;\ INDEX 2 

1629 LDA@41;STAH7E ;\ REGEL TELLER 

16350:LL7B LDY@B ;\ BYTE TELLER 

164@:LL71 LDA (#7A,X) ;\ LAAD FILM BYTE 

1650 STA (#8C),Y ;\ PLOT IT 

1668 INC#7A ;\ VERHOOG FILM TELLER 

1676 BNELL72 

1689 INC#7B 

169B:LL72 INY ;\ VERHOOG BYTE TELLER 

1700 CPY@4;BNELL71; \ 4 BYTES GEDAAN? 

1718 CLC ;\ VERHOOG PLOT POINTER 32 

1728 LDA#8C 

1750 ADC@32 

1740 STA#BC 

175@ BECLL76 

1768 INC#8D 

1770:LL7& DECH7E ;\ VERLAAG REGEL TELLER 

1788 BNELL7@ ;\ 41 REGELS GEDAAN? 

179@ LDX#7D ;\ LAAD INDEX MET CYFER 

1800 LDA#7C;CMP@1 ;\ WAS DIT HET INALA FRAME? 
1810 BNELL77 ;\ ZONIET: SAVE FILMPOINTER 

1820 LDA#2221,X;CMP@9 ;\ OVERGANG NAAR 87 
1850 BNELL77 ;\ ZONIET: SAVE FILMPOINTER 

1840 LDA@#3C;STARBD,X ;\ NUL 

1856 LDA@#SI;STA#BI „X 

1860 BNELL7S 

1870:LL77 LDA#7A;STA#BE,X ;\ SAVE FILM POINTER 
1880 LDA#7B;STA#B1 ‚X 

1890:LL78 

1908 DECH?D;DECHID ;\ VERLAAG CIJFER TELLER 
1910 BPLLLGB ;\ 6 CIJFERS GEDAAN? 

1920 DECH7T ;\ VERLAAG FRAME TELLER 

1930 BPLLL64 ;\ 8 FRAMES GEDAAN? 

1949 

1950 RTS 

19603 

1978 R. 


De datafile "“FILMNEG" komt op #3F88 — #EOOG. 
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240 


17047, HEF 7 ,4FF 7 HEF, HEF ,4ED,AFF „HED, BFF, HED, HPF ,#ED/A:N 


DRUPPEL 

18 PROGRAM DRUPPEL 

28 DIM RR(10) 

38 

48 REM ATOMATISCHE RAMZAAD- 
S8 REM BEVLOEIINRICHT ING 

68 REM ONTWIKKEL INGSFASE 

78 REM DATACHECK 85.5 

89 REM gags+pcharme 

98 REM (C) JAAP 

108 

118 REM DUS MET 'N ECHT SCHA- 
128 REM KELSYSTEEM! (EX/AXR2) 
158 

148 DIM RR(1B) 

158 

168 P=#68B0;REM (BUZZPLOT) 
178 !'P=#BOO2AD4E 

188 Pt4=#829D8449 

190 PIS=#AA4CAHB8; P712=#F7 
288 
218 BASE#70 
228 
258 FOR N=8 TO 9 

CR.RA 

259 NEXT N 
268 
278 DEF DRUP,00020801 09000320 
283 DEF: 220202 1 1 10090020 
290 DEF: 22900011111 030000 
502 DEF: 0208ti1111100000 
318 DEF: @009111111120000 
320 DEF: 2000111111 120000 
3538 DEF: 0299281111 1202220 
348 DEF: 0009001 1 12202200 
350 
368 DEF KRN1,121002090121012018 
370 DEF KRN2,1010029212101010 
380 FOR N=t TO 2 
398 DEF: @119000011010180 
400 DEF: 10100002:0101010 
418 DEF: @11090001 1010100 
428 DEF: 1010000010101 810 
438 DEF: 0010200001 2050200 
448 DEF: 20190290 1 0002000 
450 DEF: 02110201 100200000 
468 NEXT 
470 
488 DEF SNS,11141laa1itinran 
498 DEF: 11900002000008 1 1 
520 DEF: C0G00E0ELALALO 1 1 
SiI® DEF: $0A00000B08! 1 100 
520 DEF: Cavese Le0i 1AA0EE 
53@ DEF: avan: t 10900940 
54Q DEF: 1181114900290000 
550 DEF: 1119002000200000 


SA 
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578 FUNCTION JE-EEN-ONS-WEEGT 
580 JE-EEN-ONS-WEEGT=@ 


598 FEND 

428 

618 PROC ZAAI,N,Y 

620 FOR N=0 TO 9 

&38 DO 

648 RRIN)=A.R. 4245+5 

650 UNTIL RRN<?6 DR RRN>180 
668 NEXT N 

678 FOR N=@0 TO 9 

652 FOR Y=192 TO-1 S5.-5 


690 PLOT14, (RRAN)) „Y 
702 PAUSE 2 
718 PLOT14, (RRAND) ‚Y 


728 NEXT Y 
758 _ BEEP(A.R.4202+10) ,7 
748 SET N,(RRIN)) „2 
758 NEXT N 

760 PEND 

770 

788 PROC GROEIEN) ,X,Y 

790 _ Y=A.R.AS+1 

808 _SHOVE N,@,Y; TURN N 
E10 POS N‚X,Y 

828 _ MOVECX+B) , (Y-B) 

8538 _ DRAW(X+8) ‚-1 

840 PEND 

852 

868 PROC SENSOR 

878 KEY A 

880 CASE A OF 
OPBKCH"A">IFSC120; S=S+1 
GOEKCH" 2" >XIFS-7>H; S=S-1 
10 ELSE A=@ 

928 CEND 

950 CARRY: SNS, 136,5 

940 PEND 

958 

968 

970 PROC LOOP-LEEG 

see PyP 

990 FOR Y=H. TO20 5-1 
1000 _MOVEL14,Y;PLOT7,142,Y 
1818 _ TURN(A.R. #10) 

1028 NEXT 

1830 PYP 

1048 BEVLOEI 

1850 PEND 

1660 

1878 PROC PYP 

1888 X=126 

1028 FOR Y=19 TO B 5.-t 
1188 _ MOVEX,Y;PLOT6, +4) ,Y 
ti18 _ TURN(A.R.%10) 


1120 NEXT 
1158 PEND 
1140 


1158 PROC BEVLOEI,N,X 
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1168 FOR X=128 TO 255 

1170 _ PLOT13,X,8;PLOT13,X,1 

1180 _ TURN(A.R. 210) 

1198 _ PLOGT13, (255-X) „0; PLOT13, (255-X) ‚1 


1200 NEXT 

1218 F‚N=@ TO 58; SUDDER;N. 
1220 PEND 

1258 


124® PROC SUDDER 

1258 _PLOT14,(A.R.A256) ,(A.R.L2) 

1268 _ TURN(A.R. #18) 

1278 PEND 

1280 

1298 PROC KRAAN(R) 

1302 BEEP 70,10 

1318 TURN: SNS 

1328 PAUSE 20 

1338 FOR N=1 TO 7 

1340 MOVELC+R) ,16;PLOT2,37,0;PLOT6&, (D+R*-1) „168; PLOT2,-37,D 
1358 MOVEC,16;PLOT2,37,0;PLOT6,D,168;PLOT2,-37,0 

1368 _ C=C+R;D=D+R#-1 

1378 _ SHOVE:KRNI,R,B 

1388 _ SHOVE:KRN2, (R#*-1) ‚B 

1398 NEXT 

1408 PEND 

1410 

1420 PROC DRUPPEL 

1430 H=20 

1448 DO 

1458 GROEI(A.R. 410) 

1468 
1470 SET:DRUP,X,Y 

14B0 FOR Y=208 TO 164 STEP-1 
1498 _ CARRY: DRUP,X,Y 

1508 _ TURN(A.R.»10) 

1518 NEXT Y 

1520 
1530 
1540 FOR Y=Y TO(H+2) STEP-6 
1558 _ CARRY:DRUP,X,Y 

1568 _ TURN(A.R. #10) 

1578 NEXT v 

1588 BEEP(A,R, 45049) ‚1 

1590 _UNSET: DRUP 

1608 PAUSE 5 

1618 F‚N=7 TO 19 

1628 _ PLOT14, (114+A.R.429) ‚H 
1638 _ TURN(A.R. 410) 

1648 NEXT 

1658 MOVEI14,H;PLOTS,142,H 
1668 H=Ht1 

1678 DO 

1688 _ SENSOR 

1690 UNTIL A=0 

1788 UNTIL H>=S-7 

1718 PEND 

1720 

1730 PROC TEKEN-BASIS-PLAATJE 
1740 GRMOD 
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1758 P.';?#E1=0 
1768 P.* _ BIO-RAMZAAD"'" _ BEVLOEI-""" _ INRICHTING""" (0) 


JAAP." 
1770 _ ?83FE=P4256; ?#IFF=P/256 
1788 X=123;Y=191 
1798 MOVEX,Y;PLOT1,0,-20;PLOT1,1,0;PLOTO,6,8;PLOTt, 1,8 
1885 PLOT1,0,20 
1818 X=113;Y=119 
1820 MOVEX,Y;PLOT1,8,-100 
1838 PLOT1,12,0;PLOT2,6,0;PLOT1,12,0;PLOT1,0, 100 
1840 SET:KRNI,116,18 
1858 SET:KRN2,122,179 
1868 C=131;D=174 
1878 CIRCLE 2,171,92,7 
1888 CIRCLE 2,171,92,3 
1898 MOVE171,92;DRAW144, 108 
1980 MOVE171,92;DRAW144,B4 
1918 MOVEC,16;PLOT2,37,8;PLOT6,D, 168; PLOTZ,-37,2 
1920 S=120 
1950 SET:SNS, 156,5 
1948 PEND 
1950 
1960 
1978 TEKEN-BASIS-PLAATJE 
1988 ZAAI 
1990 DO 
2000 
2018 DRUPPEL 
2020 KRAAN (1) 
205B LOOPLEEG 
2049 KRAAN(-1) 
2050 UNTIL JE-EEN-ONS-WEEGT 





RECTIFICATIE G,DOS 1.5 


In het artikel over G.DOS 1.5 in Atom Nieuws jaargang 1986 nr.2 
moeten enkele wijzigingen doorgevoerd worden. 


pag. 41: 
Van de switches moet dipswitch nr. 6 een 1 zijn en nr.7 een 0. 


pag. 44: 
In het schema moeten van ÏC 35 de pootjes 4 en 5 omgedraaid 
worden, hierdoor komt de FDC op #BC1@ en de PIA op #BC14. 

Bij de resetschakeling met Di en R12 moet de diode weggelaten 
worden. In de meeste gevallen blijft het systeem met diode vaak 
‘hangen’. De print wordt uitgevoerd zonder de diode. 
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1ODIM VVI 

2OIN. "WAAR STAAT PROGRAMMA "B 

305=0; F=0; K=$FFO2 

4OR=B?1#256+B?2; B=B+3 

SOIFR>#FEFF;P. "ER STAAT GEEN PROGRAMMA! II"GE. 
SSREM HIER PRINTER AAN 

&8aDOP. 'R 

70F. I=1T0(S+P);P." * 
B8DO P.$7B;B=B+1;U. ?B: 
90b 1F?B=13; GOS. d 
1001F ?B=#3B; B=B+1 
1101F ?B=CH" ";DO B=Bt1;U. ?BS>CH" " 
AND IF S>1;S=8-3 
AND IF S>1;5=5-3 
=CH"F" AND 
=CH" 1" AND 
=CH"D" AND B?1=CH"0";G0S.c; IF ?B=13;G-b 
170VV0=?B; VV1=B?1 

188U. R>#FEFF 








=13 OR ?B=#3B 














190P, "EINDE" 

19SREM HIER PRINTER Af 

200E . 

Z218CB=B+1;P. 'RjF.I=1T0 S+F 
22aP." “;N.;P."DO" 
2305=5+3;D0 B=B+1;U. PB<>CH" " 


Z40R. 
250dR=B71#256+B?2; B=2B+3; F=B 
26BIF VVB=CH"I"; VVO=D 
27DIF?B>96 A‚R<K;P. 'R$?B;B=Bt1 
2830R. 


Hetzelfde programma opgemaakt door zichzelf 
WAAR STAAT PROGRAMMA 7#2908 

18 DIM VVI 

25 IN. "WAAR STAAT PROGRAMMA "B 


30 5=0 
F=0 






FFoo 

430 R=B71#254+B72 

48 B=B+3 

50 IFR>#FEFF 

58 P.'"ER STAAT GEEN PROGRAMMA!!!" 





50 E. 

55 REM HIER PRINTER AAN 
60a 

&B DO 

£8 P.'R 

70 F‚I=1T0(S+F) 

70 “ 

78 N. 

88 Do 

ga P‚$7B 

68 B=B+1 

88 U.?B=t5 OR 7B=#35B 
Bb 


98 IF?B=15 
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EINDE 


98 
100 
180 


110 
118 
118 
118 
128 
120 
120 
150 
158 
150 
140 
148 
158 
158 
168 
168 
168 
168 
170 
178 


IF 


IF 


IF 


IF 


GOS.d 
?B=#3B 
B=B+i 
2B=CH" " 
DO 

B=B+1 
U. PB<>CH" " 
?B=CH"N" AND 
IF S>1 

5=5-3 
?B=CH"U" AND 
iF S>1 

S=85-3 


IFVVO=CH"F" AND 


S5=5+3 


IFVVB=CH"I" AND 


IF 


F=F+3 
?B=CH"D" AND 
GOS.c 
IF ?B=13 

G.b 


VVB=7B 


vy 


1=B?1 


188 U.R>HFEFF 
198 P. "EINDE" 
195 REM HIER PRINTER AF 


228 


218c 


218 
218 
218 
220 
228 
220 
258 
258 
238 
238 
240 


258d 


258 
250 
258 
268 
260 
278 
270 
278 
280 


E. 


B=B+ 
P‚’R 
F‚I= 
P. 
N. 


1 


1T0 S+F 


PDO" 
5=5+3 


DO 


B=B+t 
U. ?B<>CH" " 


R. 


R=B?1#256+B°2 


B 
F=0 





+5 


IF VWVB=CH"I" 
vvg=0 
IF?B>96 A.R<K 


“R$?B 


B=B+1 


R. 


B?1=CH"." 


B?1=CH"," 


YVI=CH", " 


VUI=CH"F" 


B?1=CH"0" 
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1 PROGRAM SEARCH.STAT 

2 6G.s; 

3 

De Beaetiekeahate dekenaat hk aak 
Ssource van statement"search"v2.@ 
6 NIET UIT: A.N.5'B4 BLZ36 

7 W. OSTERHOLT (R'DAM) 
Ke hadddndhedhediehededhadefikndiadhadiade Meded Keadiadkadhdkeedkodked 
95?13=0;?14=4+71B; I#21=l11 

18 DIMLL10;F.N=BTO11jLLN=-1 

11 N.;G=#4; REMstartpagina 

12 P.$12"ROUTINE OP 
P. "NAAM 







;LI.#FEGA 
;GOS.a 
EARCH'" 

17 T=T+LENT; ?T=LL0/256: #80 
18 T?1=tL0%256; TP2=#88; T=T+2 
19 A=P;TI1=As END 

Z@al:LLODEY 
2isbLiINY;LDA(S) ,Y; CMP@S2 

22 BEOLLI;CMP@#22; BEBLL 2; RTS 
23:LL2INY; JSRHCEBF; LDA@G; LDXED 
24 STA#B1;STX#80;LDYE255 
25:LLSCPX@B; BEBLLG 

26: LL4LDA#BS; STAREN 

27 LDY#82;LDX@255 

28:LLSINX 
29:LL&INY;CPY@O; BNELL 7 

38 INC#B1;BNELL7; JMP#CSSB 
Sl:LL7LDA#140, X; CMPELS 

32 BEGLLS; CMP (#80) ,Y; BNELLS 
35 TXA;BNELLB; STY#B2 

34 LDA#81;STA#BS 
35:LLSJMPLLS 

36: LLILDAEN2S; JSRIFFF4 

37 JSRLL1@; JSRHFFED; INY; JMPLL4 
38:LLIOLDXEB; LDAHSS; JSRHFBE2 
39 LDA#B2; JMP#HFBO2; JP. $6;R. 
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DIR+XEG 


Dit zijn twee statements genaamd DIR EN XEG. DIR komt van 
MS-DUS en haalt een catalog van schijf maar test eerst op de 
aanwezige DOS en op de aanwezigheid van een schijf in de drive. 
De syntax is DIR x, waarbij x het nummer van de drive is 
(Bx <4) 

Voor het kunnen gebruiken van dit statement moet mem wel de 
diskbox hebben op de schakelkaart. Het maakt niet uit waar, hij 
zoekt hem zelf op. 

Het statement XED haalt een programma van schijf en geeft over 
zichtelijk het start- , eind- en executie adres op. Vervolgens 
geeft hij ook de file lengte op. Hierna wacht hij ongeveer twee 
seconden waarbij u nog escape in kan drukken voor als u het 
programma niet direct wil runnen. Wacht men gewoon dan zal het 
programma automatisch gestart worden. 


GRAPHIC 


Dit programma is bedoeld voor mensen met een DISC DRIVE, 
WORDPACK en P-CHARME. Het programma leest de waarden in vanuit 
een input file die gemaakt is met de WORDPAEK. Deze file ziet 
er als volgt uit: De eerste regel begint met FILE waarna een 
stukje commentaar kan staan. Hierna volgt een getal dat het 
aantal in te lezen getallen aangeeft. Tenslotte komen de 
getalten in paren gescheiden door een spatie. Na het saven 
wordt dan het programma GRAPHIC geladen en gerund. In het het 
begin wordt dan de naam van de input file gevraagd. Hierna komt 
men in het menu waarbij men kan kiezen uit de aangegeven 
mogelijkheden. Als men kiest voor het maken van grafieken, dan 
kan men opgeven van welke rij getallen er een grafiek gemaakt 
moet worden. De x rij is 1 en de y is 2. Bij al deze 
programma's hoort ook neg een input file genaamd INVOER. Deze 
dient als voorbeeld voor als het nog niet helemaal duidelijk 
Was, 


LEESIN 


Dit programma is een losse routine die de getallen inleest 
vanuit de input file en deze waarden ìn de array's ZXX(X) en 
AYY(X) plaatst. Tenslotte drukt deze ze ook nog af om te laten 
zien wat er precies ingelezen was. 
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MODE MS HET HOE, WAT, WAAR EN WAAROM 


Een nieuwe artikelenserie voor de beginner en niet-gevaorderde 
die wat meer van modems af wil weten. door E. Sanders 


Dit wordt dus een (hopelijk) interessante artikelenreeks over 
modems. Het is de bedoeling dat een ieder die nog nooit een 
computer heef gezien en die nog nooit een weerstandie heeft 
gezien na afloop enig inzicht heeft in een MODEM. 


BEGINNERS hoeven zich dus niet te laten afschrikken !! 








Het zal niemand, die ook maar iets met computers te doen heeft, 
ontgaan zijn dat de laatste jaren in toenemende mate wordt 
gesproken over toepassingen waarbij een computer diensten 
verleent aan gebruikers, die door een telefoontijn met die 
computer ziijn verbonden. 

Ook ik werd door middel van een artikel (lees: advertentie) met 
dit fenomeen geconfronteerd. 

Ik heb dan ook geprobeerd dit artikel eens rustig (77!) door te 
lezen en meteen werd ik om de oren geslagen met termen zoals 
datatransmissie, duplexverbinding, modem, RS 232 interface en zo 
Rog enkele termen die ik amper kan en durf uit te spreken. 

Dus er zat niets anders op dan me in deze materie eens te gaan 
verdiepen, aantekeningen te maken enz. 

Waarom P7??,... Omdat de Regio Limburg intensief bezig is om 
een goed(koop) MODEM te ontwikkelen welk universeel tompasbaar 
moet zijn, volgens de PTT-normen werkt en veel mogelijkheden te 
bieden heeft. 

Ja, dan wil je er toch ook wat vanaf weten, ja toch... 

Het bedoelde modem zal begin mei 1986 (hopelijk) operationeel 
zijn en bereikbaar voor onze leden. 

Nadere informatie hierover volgt nog. 

Aangezien ik vermoed dat er nog meer mensen geinteresseerd zijn 
in de werking, het programmeren ervan enz., heb ik geprobeerd de 
aantekeningen in een (hopelijk te begrijpen) verhaal te gieten. 
Nogmaals, deze serie is dan ook bedoeld voor mensen die er (nog) 
niets van afweten. Misschien dat de ervaren Atomist cq Modemist 
er tach nog iets uit kan halen. 

Ket verhaal zal universeel zijn zodat als U (onverhoopt) naar 
een andere computer zou gaan uitkijken dit verhaal nog steeds 
van toepassing is. 

Als er een link te leggen is naar onze Atom , zal ik dat 
duidelijk aangeven. 


DEEL 1 


We gaan het voorlopig niet hebben over MODEMs. Hoezo niet? zult 
U zeggen. Omdat een MODEM een onderdeel is van een veel groter 
geheel - 

Dat groter geheel is de wereld van de datatransmissie. Eigenlijk 
moet ik spreken van datacommunicatie of teleprocessing. 
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Wat betekenen deze 3 begrippen nu weer? Kijk maar eens naar het 
volgende plaatje. 







proe) commuricatie 


datacommunicatie of 
teleprocessing 
En wat is nu datatransmissie? 





Datatransmissie is het overbrengen van gegevens (data) vanuit 
ee deel van een informatieverwerkend systeem naar een ander 
deel . 





taten we eens gaan kijken hoe de gegevenstransport in een 

computer in 2°n werk gaat. 

Belangrijk zijn een drietal kenmerken: 

1 We hebben te maken met zg. parallele transmissie van data. 
Er worden dus 8 bits (=1 byte) tegelijk overgebracht. 
Parallel wil hier zeggen : naast elkaar, er gaan dus 8 bits 
tegelijk over. 

2 Er moeten besturingssignalen aanwezig zijn. Hier gaan we 
niet verder op in. Het belangrijkste stuursignaal is het 
synchronisatiesigaal dat ervoor moet zorgen dat alles op z’n 
tijd gebeurd, zodat niet bv. bitie 5 een uur later aankomt 
dan de rest. 

3 We werken altijd met gelijkstroom, meestal +5v of +12v. 





Het gegevenstransport buiten de computer (bv. tussen 2 
computers) wordt ook door deze 3 punten gekenmerkt, alleen 
precies omgekeerd. 

Gegevenstransport buiten de computer: 





1 We spreken hier van seriele datatransmissie. Serieel 
wil zeggen: achter elkaar. Kan dit dan niet parallel 7 
Jawel hoor. Maar stel eens dat die andere computer 10 Km 
verder staat. Hoe gaan we dan data overbrengen (8 bits)? Met 
de telefoonlijn. 
Zouden we dat parallel doen dan zouden we 8 telefoonliinen 
naast elkaar nodig hebben. Dit wordt natuurtijk een duur 
grapje voor de gebruiker. 
Nee, we stoppen die 8 bits achterelkaar de lìín in, dus 
serieel. 

2 Er zijn nu geen (extra) besturingslijnen aanwezig. 
Waarom niet 7 
Om 2 redenen: a) zoals bii het vorige voorbeeld zouden we 
dan met meerdere liinen moeten werken. b) wie zegt dat die 
andere computer mijn besturingssignalen begrijpt? 

3 Er wordt meestal (niet altijd!) met wisselstroom gewerkt. Op 
deze wisselstroom komen we nog terug.) 
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Kijk ter verduideliiking maar eens naar het volgende plaatje: 





Ci, ce computer 1 en 2 
BEt, BE2 besturingseenheid + (A) adapter 1 en 2 
Mi, M2 Modem 1 en 2 


EE | bitje 


Hoe gaat het nu in z’n werk? 

Computer 1 stuurt een karakter (1 byte) naar de 
besturingseenheid (BEI), dit gebeurt parallel, dus met 8 bitjes 
naast elkaar. In de adapter (A) worden deze bities als het ware 
in doosjes gestopt. Als de acht doosjes vol zijn met ieder een 
bit, haalt de adapter ze er weer een voor ween uit en stuurt ze 
achter elkaar, dus serieel, naar het modem MI. 

Het modem Ml maakt er wisselstroom (het was immers gelijkstroom) 
van en stuurt de hele zaak door een telefoonlijn. Hoe, dat zien 
we later nag wel. 

Aangekomen bij het modem M2 wordt van deze wisselstroom weer 
gelijkstroom gemaakt en het modem M2 stuurt de bitjes (die 
achter elkaar zijn binnengekomen) door naar de adapter van BEZ. 
Deze stopt de bitjes weer in de 8 doosies en als alle doosjes 
vol zijn (het is nu weer een compleet byte) wordt het parallel 
doorgestuurt naar computer C2. 


LET OP: 

De computer kan, eenvoudig gezegd, alleen maar werken met 
byte’s, dus niet met afzonderlijke bitjies. Vandaar het steeds 
uitelkaar halen en het weer samenvoegen van bitjes. 


Wie doet dus nou wat”? 


BE en A zorgen voor de omzetting van parallel naar serieel en 
andersom en is dus in feite het beruchte RS-232 interface 
(Een interface is een schakeling die de verschillen tussen 
diverse apparatuur opheft, we komen er nog op terug) 





Mi en M2 zorgen voor de omzetting van gelijkstroom naar 
wisselstroom en andersom en is dus het MODEM. 


Zo we hebben dus een computer, RS5-232 interface en een modem. 
Kunnen we nu zonder meer met andere computers gaan communiseren? 
Was dat maar waar ! 

We hebben nu de problemen met verschillen van kenmerken 1 en 3 
opgelost. Maar nu 2 nog, nl. het probleem met de 
besturingssignalen, die ervoor moesten zorgen dat alles correct 
verliep. 
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Met betrekking tot de besturingsproblemen zouden we ons de 

volgende vragen kunnen stellen: 

1 Hoe weet computer cl nu dat de andere computer C2 in staat 
is cq bereid is om een byte te ontvangen? 
Misschien staat die andere computer wel niet aan. 

2 Hoe weet de ene computer dat de andere computer een byte wil 
versturen. 

3 Hoe weet computer C2 dat computer Ci in staat is cq bereid 
is om een byte te ontvangen”? 

4 Hoe weet het ontvangende modem wanneer er zich een byte op 
de lijn bevindt? 


De vragen 1,2 en 35 zijn eenvoudig te bantwoorden. 
Je kunt de telefoontijn niet alleen als datakanaal gebruiken 
maar ook als besturingskanaal 
De verbinding staat nl. beurtelings in de "tekstmode” en in de 
“besturingsmode". 
Populair gezegd: als ik bijv.een bepaalde code verzend, is alles 
wat erna komt data. Als ik een andere bepaalde code verzend is 
alles wat erna komt "besturingskarakter". 
De vierde vraag heeft alles te maken met het synchroniseren van 
de verbinding. Synchroniseren betekent: geliiklopen. 
De synchronisatie wordt tot stand gebracht doordat de afzender 
van de tekst tussen de tekst door of voorafgaande aan de tekst 
speciale synchronisatiesignalen meezendt. Door deze signalen is 
„de ontvanger instaat exact synchroon (gelijk) te blijven lopen 
met de afzender. We komen in het volgende deel hier nog 
uitgebreid op terug. 


Datatransmissie hoeft niet altijd via een telefoonlijn te lopen. 
Het kan ook een coax (TV) kabel zijn. 







coaxkabel 


compujer ca Computer 


termigal 


Ook dit is datatransmissie want het besturingskanaal loopt niet 
door tot de volgende computer. zodat ook hier het probleem van 
de besturingssingalen optreedt. Besturingssignaten zijn nl. ook 
B bits groot, dus 1 byte en kunnen dus niet door een lijn. 


Bií dit soort datatransmissie mag de leiding max. Zkm zijn. Hij 
wordt veel gebruikt voor communicatie tussen computers in een en 
het zelfde gebouw. We sparen dus twee modems uit. 


Dat was het dan vaor deze keer. Leest U alles nog eens rustig 
door. U ziet dat we het niet alleen over een modem kunnen 
hebben. Er “hangt” nl. veel meer aan vast. 


Mochten er nog vragen zijn, bel of schrijf dan even. Denk niet: 
deze vraag is misschien heel dom. Stel hem, anderen kunnen er 
ook van leren 

Laat ook eens weten of deze serie in de smaak valt en of ik 
hiermee door moet gaan. 
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«kk GMS M 


ALGEMEEN 
Ket programma'tje GMS. lofwel : "Eraphics-Manipulation-Bystes* verandert een 
onschuldige ATOM in een soort aontagetafel, waarsee het aogelijk wordt on !de)en 
van) tekeningen uit te vergroten, te verkleinen, te ‘knippen’ en/of te 
'glabken’, 
SCHERMEEHEUGENS 
Bij het aanipuleren van tekeningen is het nodig oa meerdere tekeningen 
tegelijkertijd in het geheugen te hebben, We hebben tensinste nodig: 
Ô: een beeldschern: het plaatje dat we op het scherm zien 
Lu het ‘bran’ -schera: dit wordt gebruikt als we willen 
vergraten/verkleinen/buigens de routine die deze transtormatie verzorgt 
leest de tekening uit dat ’bron’-geheuger, verandert de coprdinaten van de 
punten,‚en plaatst het resultaat op het beeldschera 5 
TWEE VERSIES 
Er bestaan van G.M,5, twee versies: een ‘vette’ en een afgeslankte’ versie: 
De 'vette’ versie (GHS) wil aleen draaien op een stampvolle ATON: 64-kaart + 
gestapeld (RP800.,8A000) + ANR-2, 
Deze versie saakt het gebruik van vier extra scherageheugens aagelijk, Extra 
scherageheugens zijn erg makkelijk aaar niet noodzakelijk, zeker niet als U 
in het gelukkige bezit bent van een ’flodderschijfafspeler’ (of in goed 
neder bands: ’floppy-disc-drive’) 
de 'ufgeslankte” versie (GMS,SHRT) draait op een ATOM act geheugen van 
U2800,.KA0OG (Dus gestapeld + läK-kaart) deze versie gebruikt alleen de twee 
genoesde scher ngeheugens. 
Beide versies gebruiken echter wel de P-CHARME (of: hoesel-box) 
KET OPSTARTEN 
Ket prograsaa wordt als volgt van band gehaald: 
Opstarten GNS 
Eerst: LOAD “6MS.MACH® CRETURN) RUN CRETURND 
Dan : #LOAD “EMS, MAIN* (REFURN> 71B=#44; OLD (RETURN) RUN (RETURN) 
Opstarten GMS, SRT 
Eerst: LOAD *GMS,SHRT,MACH* CRETURN) RUN CRETIRND 
Dan s €LOAD "GAS. GHRT.NAIN® <RETURN ?18=45A; OLD CRETURNS RIJN CRETURN) 


lAd SAE DT me TT OT OD Lud CLR 








DE ICONEN 
Als het prograama opgestart is, dan verschijnt bovenin beeld een rijtje 
*icanen'. Elk icoon geeft een functie aan van het systeem, 
Verder zien we ergens een cursor inde vore van een pijltje die popelend 
staat te wachten tot hij iets aag doen, Met die pijl kunnen we een onderdeel 
selecteren door hee set de pretstick naar een icoon te bewegen en daarna op 
de knop te drukken. 
tvoor de mensen die nog geen joystok aan hun ATOM hebben hangen, staat er 
in ’listing 1’ gen aanpassing die een ‘snapper'-besturing aogelijk 
maalt.) 


BELANGRIJK: Als we TIJDENS het bewegen van de cursor op de knop drukken, 
beweegt de cursor plots 108 zo snel, 


Hierna volgt van elk van de onderdelen een korte beschrijving, 
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de “LCAD*: Als dit gekozen wordt goet nog een keer op een toets gedrukt worden{de 


LûAd 


sededeling "PLAY TAPE“ is echter niet te zien '!), daarna wordt een tekening van 

hand gelezen, die kont dan in op het beeldscherm te staan, De tekening wordt get 

het "CO8f? protecol (dus 1200 BAUD) van band gehaald. 
IRUUFSEL opdat de tekening zonder naan op band staat (zie SVE) kan het zoeken 
van een tekening op band erij enerverend zijn. De truuk is nu als volgt: we 
geven sen ‘LOAD’ Jaden zo de eerste tekening die we tegenkosen, zodra de 
tekening echter begint te laden (we zien dat op het scherm) spoelen we de band 
gemeen door, als menu reer de band afspelen, dan zien weeen stuk van een 
volgende tekening verschijnen. Hit kuopen we herhalen tot de gezochte tekening 
gevonden ist we spoelen dan terug tot het begin van die tekening en geven weer 
een LOAD, (N.B, het laden stopt zodra de onderkant van het schers is bereikt} 


Ket SAVEN: aok hier weer nog een keer op een knop drukken, daarna wordt de tekening 


aRIIE 


die ophet scher staat ge5AVED naar band, de tekening wordt ZONDER NAAM 
weggeschreven onder 1209 BAUD, 


Het krippen: Hiervoor gekozen verdwijnt de balk bovenin beeld on plaats te saken voor 





PE, 





De 


mij 


het bovenste stukje van de tekening. Nu kunnen weeen deel uit een tekening 
weghalen. Dit gaat als volgt in zijn werk: 

We gaan net de cursor naar een plaats op het schera en drukken dan op de knop. 
Er lijkt niets te gebeuren, maar zodra u nude cursor weer verplaatst, blijkt 
deze een 'staart’ te hebben die precies vastzit aan het eerder aangegeven punt, 
We kunnen nu weer op de knop drukken: de staart wordt nu gefixeefd en de cursor 
krijgt nu een staart die vastzit aan het laatst aangegeven punt. Op deze manier 
kunnen wa een (veel) vlakje tekenen oa een deel vaneen tekening, Als het vlake 
af is kunnen we twee dingen doen: de cursor boven of onder buiten beeld laten 
verdwijnen, 

TERUGKEREN NAAR HOOFDMENU: 


11 “ACCEPT': cursar BOVEN buiten beeld taten verdwijnen; de zojuist 
aangebrachte verandering aan de tekening is definitief. 

2 REJECT: cursor ONDER buiten beeld laten verdwijnen; de zojuist 
aangebrachte verandering wordt ongedaan gepaakt: de tekening ziet er weer 
ze uit als hij was voor het onderdeel was gekozen, 


SNCHE': deze functie werkt bij 'GHS,SHRT' anders dan bij ’6MS' daarom hier 
afzonderlijk behandeld: 


MOVE EIJ SME, SERT 
Hiervoor gekezen wordt het BEELDSCHERMGEHEUGEN teerder aangegeven met ”Ò’) 
gecopieerd naar het *Brongeheugen’ (1). 

MOVE BĲ SMS 
Kiervoor gekozen kont een extra kadertje in beeld: daarop zien we twee ri jer 
getallen lopend van Ó.,5 respectievelijk achter da woorden 'FROM' en ’T0’ De 
getallen stellen de scherngeheugens voor: Ô:beeldschers, {:bronschera, 2,5: 
extra scheraen 
He \unren nu een scherm naar gen andere copieeren door de gewenste nunaers aan 
te wijzen, 
Voorbeeld: verplaats beeldschera naar bronschers: FROM O TO 1, 
Zok hier kunnen we de "accent’ en 'rèject’ gebruiken, 


de VEYLHANGE's dit doet vrijwel hetzelfde als °MOVE alleen worden de scheras nu 


ĳ j VERWISSELD, 
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de GRED.saall: get dit onderdeel kunnen we een tekening uit het brongheugen 

transforaeren (zeg: veranderen) waarbij het resultaat op het beeidschera koat, 
Pam: 4 Er verschijnt gen ‘kadertje’ op het scherm met een viertal onderdeeltjes, De 

onderdeelt jes stellen het assenstelsel voort linksboven het nulpunt, Linksander 

het coordisnaat van het uiteinde van de X-äs en rechtsonder het coordinaat van 

het uiterste punt van de Y-as. De getallen die er de eerste heer bij staan zijn 

de narnale coordinaten van de ATOM: 0=(0,0) X=(255,0) Y= (0,191) 

We kunnen elk coordinaat veranderen door het getal aan te wijzen, op de knop te 

drukken en de nieuwe waarde in te typen, 

Dat ’nieuwe’ assenstelsel geeft nu aan Hoe de 'brontekening’ bewerkt soet 

worden. 

Voorbeeld: We willen de brontekening 28 zo klein , dan geven we ais coordinaten: 

O={0,0} K=(128,0) Yat0,96). 

Als we au een "accept’ kiezen, dan wordt het assenstelsel van de brontekening 

angenerkt naar het aangegeven stelsel. Als dit soltoaid is, aoeten we nog een 

keer aangeven of we het resultaat goedkeuren, (’accept’ of 'reject’), 

Op deze aanier kunnen we neerdere tekeningen IN ELKAAR aonteren: we plaatsen een 

tekening op het scherm en een andere inhet ‘bronschere', We geven nu aet de 

assen aan hoe we het ’bronscherm’ in het 'heeldschern’ willen plaatsen. Als het 

resultaat ons niet bevalt, geven we een ‘reject’, waarna we nieuwe coordinaten 

proberen. 

Een onderdeel is nog onbesproken: rechtsboven het kader: Kiermee kunnen we 

aangeven hoeveel graden we het branschera willen draaien tov zijn originele 

positie: on dit te doen moeten we aangevent @: de hoek (in graden) X: de LEMSTE 

van de nieuwe K-as; Y: de LENGTE van de nieuwe Y-as en de oorsprong (het 

enderdeelt je linksboven in het kader), 

Op grond van deze gegevens rekent de computer dan de coordinaten uit (links- en 

rechtsonder in het kader), 





De GRED.large: dit onderdeel doet ongeveer hetzelfde als het vorige onderdeel alleen 
Is deze versie geschikt voor VERGROTEN, terwijl het voorgaande onderdeel seer 
de gechikt is vaor VERKLEINEN, 
tvoor sper inforaatie over het GRED-gebeuren verwijs ik unaar het artikeltje 
over GRED zelf dat eerder in dit blad gestaan heeft} 


Ket POTLOOD leet qua): Nu zien we de cursor als puntje: als we dit bewegen laat het 

een ZWART spoor achter (op een leeg schere dus aiet te zien), Drukken we echter 

Ei op de knop, dan laat het een WIT spoor achter, Op deze sanier kunnen we 
aakkelijk tekeningen op het scherm tekenen, 


TIP: Als je een plaatje hebt dat je wilt tekeven, teken dit dan eerst op een 
transparant stuk plastic: dit kan je dan net het ’potlood’ overtrekken, 


En ook bij dit onderdeel werkt de truuk met ACCEPT en REJECT. 
Het lineaattje: we kunnen nu set de cursor een plaats op het scherm aanwijzen. Als we 
reren daarna op de knop drukken dan zien we links boven in beeld de coordinaten van 


hat aangewezen punt, Dit onderdeel stoppen we art ACCEPT of REJECT, hoemel dit 
hier geen echte functie heeft. 


de CLEAR: maakt het beeldscherm schoon. Alle ander scheras blijven behouder,. 


CLR 


Dit was het ongeveer van mijn kant, van hieraf kan ik u alleen nog saar erg veel 
succes en plezier set dit programaatje toewensen, 


Andre de Bruin, Baljuw 1, Naaldwijk. 
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FUNCTION BUTTON 
BUTION = (?#BOO1%64 =0) 
FEND 


PROC FOLLOW(sZ,U, WC 





easier y= vr Wie cv Y-1O 
IFA=CH"L"sYeY+lj Zeis IF Gj Y=Y#10 


IF XZ AND (NDT Z) AND BUTTON THEN DO;U, ?#BOO1&64D0 





PEND 
PROC POINT, A, B 





LISTING: BESTURING ZONDER JOYSTICK: Z,X,5,/ en CTRL 

Hier ziet u de regels die u in de drie aangegeven procedures soet 
veranderen; alle andere regeis van die procedures blijven 
ongemi jzigd. 
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Hoewel de Atom met de huidige floating point niet erg snel kan 
rekenen, zijn er toch vele mogelijkheden om wiskunde op deze 
machine te bedrijven. 

Dit blijkt uit de verschiliende programma's die zo nu en dan 
gepubliceerd worden. 

Een nadeel van al deze losse programma’s is dat ze niet of 
nauwelijks gebendeld kunnen worden doordat variabelen in ieder 
programma op verschillende wijze gebruikt worden en doordat de 
meeste programma's veel te weinig in subroutines opgedeeld 
worden. 

In het door mij geschreven programma heb ik getracht een 
mogelijkheid te vinden om door een strakke definitie van de 
variabelen, procedures en zelfs hele programma's universeel 
passend te maken. 


Het principe werkt als volgt: Alle rekenkundige routines moeten 
in éen procedure of meerdere procedures gevat worden zodat alle 
variabelen globaal gemaakt kunnen worden. 

Dit klinkt wel leuk maar op deze wijze kan natuurlijk nooit 
uitvoer van gegevens buiten een procedure plaats vinden. 

Om aan dit probleem tegemoet te komen zijn een drietal 
verschillende files bedacht welke door een strenge definitie in 
procedures gebruikt kunnen worden. 

De eerste file heb ik de zogeheten data-file genoemd, em deze 
bestaat uit een aantal x,y paren met voorin de file nog een 
aantal gegevens over de x,y paren zoals aantal x‚y=paren, 
maximum x-waarde, minimum x-waarde enz. 

Van dergelijke files worden er drie stuks in het hoofdprogramma 
aangemaakt ni. Lxx(q,B), Lxxtq,1) en Lxxtq,2), dit zijn dus 
twee dimensionale array's met q als plaatsnummer in de file en 
D, 1 of 2 als filenummer. 

De maximum waarde van q heb ík op 599 gesteld en de indeling 
van de file ziet er in mijn versie als volgt uit: 


Axxlo,p) aantal x,y paren 
LXX pe) maximum x-waarde 
AxxtZ,p) minimum x-waarde 
Axxt5,p) maximum y-waarde 
Axxt4,p) minimum y-waarde 
AxXx5,p) eerste x-waarde 
herl) eerste y-waarde 
KAART opd tweede x-waarde 





KAXx (2Zan+5,p) n-de x-waarde 
Zx Zan+6,p) n-de y-waarde 


Hierin is p dus het fitenummer 8,1 of 2. 

le hebben nu een eenduidig gedefinieerde data file waar we met 
behulp van een procedure getallen kunnen plaatsen, of met 
behulp van een plot-procedure de getallen in een grafiek kunnen 
zetten, of we kunnen een procedure schrijven die in deze file 
de getallen ordent, b.v. laagste x-waarde voorop en hoogste 
achterin de file. 

Op deze wijze kunnen in ieder geval procedures bedacht worden 
welke universeel zijn en dus voor andere doeleinden gebruikt 
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kunnen worden. 

Wanneer we in het heofdprogramma de dim-pointer op een vast 
afgesproken plaats zetten kunnen we deze reeks getallen zelfs 
in andere programma's gebruiken mits dat andere programma de 
files in de juiste volgorde en op dezelfde pìiaats 
dimensioneert. 

Over de plaats waarop de diìim-pointer gezet moet worden kan 
wellicht gediscusseeerd worden, in mijn programma staat deze op 
#400 hetgeen voor anderen misschien niet gunstig is. 

Dit is echter aliemaal geen ramp immers een dim-pointer is snel 
veranderd en wanneer dit het enige probìeem is zijn we al 
aanzienlijk verder in de algemene toepasbaarheid van 
rekenkundige bewerkingen. 

Om nog een beetje algemener te worden moet er nog een file 
gedefinieerd worden welke op eenduidige wijze de coefficienten 
van een polynoom opslaat, ik heb deze file de coefficienten- 
file genoemd. De definitie ervan heb ik als volgt gekozen: 





2 3 n 
polynoom: Y= A + A X +tA XT AX + ee + AX 
[7] 1 2 3 n 
De indeling van de file ziet er dan als volgt uit. 
yy tO,p) aantal coefficienten (n} 
Kyy lip) minimum x-waarde van het geldig interval 
yy (2,p) maximum x-waarde van het geldig interval 
yy (3,p) nulde coefficient CAD) 
yy i4,p) eerste coefficient CAI) 











Lyy (n+3,‚p) n-de coefficiemt An) 


Hierin isp dus weer het nummer van de file en deze kan @, 1 of 
2 bedragen, in deze drie fiìes worden 58 plaatsen gedefinieerd 
zodat maximaal 47 coefficienten opgeslagen kunnen worden 
hetgeen rijkelijk fors is. 

De maximum en minimum x-waarde van het geldig interval worden 
meegegeven omdat dit zeer handig bleek te zijn voor het 
omzetten van een data-file naar een coefficient-file en 
andersom. 

Naast de twee bovengenoemde file's is er nog een derde file 
noodzakelijk omdat anders ingewikkelde prodedures piet aan 
voldoende vrije varabelen geholpen kunnen worden, deze file 
heeft dus niet het algemene karakter van de twee bovengenoemde 
files, maar is enkel in gebruik bij zelfstandige procedures, 
dus procedures die elkaar niet aanroepen. 

Deze file heb ìk de rekenfile genoemd met als initialen Zer (n) 
De n loopt van @ tot 408, dit lijkt een overdreven groot aantal 
variabelen, maar toch is gebleken dat dit aantal noodzakelijk 
is in bepaalde procedures, zie bijvoorbeeld de procedure 
“chebyshev" in mijn programma, deze procedure verzorgt de 
omzetting van data naar coefficientfile's en dat is een 
omvangrijke rekenklus. 

Tot zover de door mij gesuggereerde standarisatie omtrent 
variabelen, welke overigens wel een zeer slechte kan zijn, maar 
ik probeer dan ook alleen maar te bepleiten dat een 
standarisatie op landelijk niveau zeer nuttig kan zijn. 

Het programma MATH, waarvan hierna enige toelichting volgt, mag 
daarvan een illustratie zijn. 
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Het programma is gebaseerd op de P-Charme box van Frans van 
Hoesel welke de vader ís van een universele Atom met grootse 
mogelijlkheden mijns inziens, bíj deze wil ik Frans bedanken 
voor de overzichtelijkheid, eenvoud en mogelijkheden welke hij 
geschapen heeft op het gebied van de programmatuur. 

Het programma heeft enkel de P-Charme box en ram van @ tot 
#9ADD nodig, de geheugen indeling loopt als volgt: 


#0 tot #400 gebruikelijke zero-page 

#498 tot #2600 opslag van files en P-Charme stack 
#28302 tot #2908 gebruikelijke floating point gebied 
#2900 tot #7000 programma MATH 

#8228 tot #9A00 benodigd voor grafische werk 


Ik ben mij ervan bewust dat dit een zeer forse hap geheugen is, 
en sommige mensen zullen in de problemen komen doordat b.y. hun 
P-Charme op #1009 zit of een disk geheugen ergens tussen #400 
en #2880, ook zijn er mensen met hun schakelbytes op #7288 of 
nog ergens anders. 

Toch is het allemaal niet zo rampzalig, men gooit gewoon die 
stukken programma waar men toch nooit wat mee doet eruit en 
verplaatst de dim-pointer naar een wel beschikbaar stuk. 
Wanneer men niet in het bezit is van het geheugen tussen #9808 
en #9ADD moet men in de procedures graphic en switch het ICOPY 
statement aanpassen naar een wel beschikbaar geheugen, evt. 
nadat een aantaì niet van toepassing zijnde procedures 
overboord zijn gegooid. 

Het commando TS uit de combox mag niet op het programma 
losgelaten worden omdat line 4@Q een regel is welke expres 
aangevuld is met spaties, wanneer men deze spaties weghaalt 
kloppen enige adressen in de rest van het programma niet meer, 
dit is ook de reden waarom in het programma niets boven regel 
5@ veranderd mag worden. 

Ik kan mij voorsteïilen dat u zolangzamerhand wel eens wil weten 
wat het programma zoal doet en dat zaì ik in het kort trachten 
uit te leggen. 

Het programma verwerkt de door u ingevoerde data of data 
afkomstig van peen wiskundige functie welke u ingevoerd heeft 
tot een door u eenvoudiger verwerkbare hoeveelheid data. 

Dit kan bijvoorbeeld door een reeks getallen netjes zichtbaar 
op het scherm te plaatsen of in een grafiek te zetten, ook is 
het mogelijk deze data om te zetten in een polynoom zodat 
integreren, differentieren, extrapoleren en nulpunten bepalen 
een peuleschittetje wordt. 

Deze bovengenoemde bewerkingen doet het programma overigens 
allemaal zetf wanneer u de juiste bewerking heeft opgegeven. 
Ook is dit programma in staat om zonder de data om te zetten in 
een polynoom te integreren, differentieren, extrapoleren en 
interpoleren. 

Op de data kan ook een algebraische bewerking losgelaten worden 
zodat ruwe data b.v. omgezet kan worden in logaritmische 
eenheden en kan de zo verkregen data op het scherm in een 
grafiek zichtbaar gemaakt worden. 

Er kunnen natuurlijk ook meerdere functies over elkaar heen 
worden geplot zodat verschillende data reeksen in een keer 
zichtbaar worden. 

Deze mogelijkheden en nog vele andere welke voor mijn 
toepassingen zinvol zijn heb ik in het programma verwerkt. 

Maar het allerleukste en doeltreffendste van het programma is 
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dat iedereen zijn eigen nuttige bezigheden kan invoegen terwijl 
hij zich niet druk hoeft te maken hoe je de berekende dingen nu 


op het scherm krijgt, in nette kolommmen of in een grafiekje, 
ef hoe Je de data moet integreren. 

Het enige wat je hoeft te doen is de betreffende procedure 
vanuit Je zelfgemaakte procedure aan te roepen om tot een 
eindresultaat te komen. 

In het programma zijn een aantal procedures verwerkt welke ik 
niet zelf gemaakt heb, maar vertaald naar een systeem waarin ze 
samen kunnen functioneren, voorbeelden hiervan zijn b.v. de 
procedures lagrange en wortel welke ik uit het basic-boekje heb 
gepeuterd of de procedure curve welke ooit eens eerder in dit 
blad gepubliceerd is. 

Ook ís er nog de procedure Chebyshev welke een vertaling is van 
een of andere H.P. tafel computer {mijn excuses voor de 
onoverzichtelijke zooi die overbleef, maar het werkt). 

Zoals gezegd kan ik onmogelijk alles uitleggen, maar ik denk 
dat het gebruik van dit programma door zijn menu systeem voor 
iedere geinteresseerde redelijk snel begrepen wordt na enig 
proberen, 

Laat ík als begin van dit proberen vertellen dat je eerst een 
bepaalde file moet creeren wil je er iets mee kunnen doen. 
Hieronder volgt een opsomming van feiten welke in bepaalde 
procedures beslist moeten omdat anders een foutmelding het 
gevolg zal zijn. 


procedure waarschuwing 
Curve Alleen pos x en y waarden in data file. 
Lagrange Aantal te berekenen coeffiecienten is gelijk 


aan het aantal ingevoerde data paren. 
Verstandig is om niet meer dan 15 x,y paren 
in een file te hebben waarop deze proc. los- 
gelaten wordt, dan krijgt men immers al een 
15e graads polynoom. 


Chebyshev Alle x waarden moeten positief zijn, en bo- 
vendien moeten de x waarden egquidistant zijn. 
Equidistant De interpolatie graad moet altijd lager zijn 


dan het aantal punten in de oorspronkelijke 
data file, dus van een datafile bestaande uit 
6 punten kan de interpolatiegraad hooguit S 
bedragen, bovendien moet de graad een oneven 
getal zijn. 


Dit waren wel de situaties waar de meeste kans is dat er wat 
mis gaat. 

Om het een en ander nog iets te verduidelijken is een 
overzichtskaartje gemaakt waarop alle functies met bijbehorende 
procedures terug te vinden zijn. 

In het programma zijn verder niet veel checks voor foutieve 
handelingen ingebouwd omdat dit nog veel meer geheugenruimte 
zou kosten en omdat dat het programma alleen maar zeer veel 
trager zou maken, terwijl je er na verloop van tijd alleen maar 
last van hebt. 

Nu we het toch over traagheid hebben, heb ik de plezierige 
mededeling dat een aantal mensen eindelijk bereid zijn om de 
f.p. uit te spitten en een snelheidsverbeteringsfactoer van 2 to 
5 is niet ondenkbaar, zodat ook de langzame procedures in dit 
programma vlot zullen kunnen vertopen over enige tijd. 
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OVERZICHTS-KAARTJE BIJ PROGRAMMA MATH 


data naar coefficientfile chebyshev 
coef. naar datafile lagrange 
data ordenen x 

verwissel x en y 

x equidistant maken 


Curve benaderen 


transformeren 


n 


iscrete data file 
data file uit functie 
coefficient file 


creeren 


jk 


=min en x-max 

yY-min en y-max 

punten invoegen 
egunten weghalen 
schalen 


wortels van polynoom [eeen file 
integreren. oef. file 
differentieren data file 
x wordt 1n(x) coef. file 


Y wordt funtie(y) 


veranderen 


L 


berekenen 


In 


tabel van data file nieuwe plot 
laten zien plot data file oude plot 
tabel van coef. file overlay 
Voor op- of aanmerkingen houd ik mij gaarne bereid, maar 


bovenal ben ík geinteresseerd in wiskundige programma's of 
programma-onderdelen die in dit variabelensysteem passen en 
ongetwijfeld voor meerdere doeleinden van toepassing zijn. 
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Wilt u lid worden van de ATOM COMPUTER CLUB, 


Neem dan contact op met de penningmeester van de regio waar u bij ingedeeld wilt 
worden, Hij kan u verteilen, waar de regiobijeenkomsten zijn en wat u als tid 
kunt verwachten. 


Regio NOORD: 
D. Uuldriks Wieaers 14 9642 KG Veendan 95987-19611 


Regio OVERIJSSEL/GELDERLAND: 
N. van Wijnen Korte Dreef 12 8302 B5 Emmeloord 85278-13585 


Regio TWENTE: 
D. ter Harasel R.v. Schevenstraat 37 7521 Sp Enschede 855-5359054 


Regio NOORD-HOLLAND: 
P, van Kuik Zuideinde 54-a 1845 JP Groot-Schermer 82997-19082 


Regio DEN HAAG: 
Th. Waayer L. Couperusstraat & 2274 XP Voorburg 878-8462504 


Regio DELFT: 
F‚ von Morgen M. de Ruyterweg 21 2628 BA Delft 


Ragio ROTTERDAM: 
R. de Haan Brasem 125 2986 HA Ridderkerk 81884-25168 


Regio CENTRUM: 
P, van Mourik Ruiterstede 68 3431 XN Nieuwegein 83492-48781 


Regio ARNHEM: 
J, Hartog - Keynenbergseweg 60 6871 WK Renkum 08373-13757 


Regia ZEELAND: 
E. Bijssel Ruysdaelstraat & 4462 AD Goes 01198-32557 


Regio BRABANT-OOST: 
P, Ehrlich Roostenlaan 266 5644 BS Eindhoven 848-114185 


Regio LIMBURG: 
Á. v. Zandvoort Mozartstraat 328 6844 RS Roermond 24750-21797 


Regio BELBIE: 
R, Leyssens Oude Baan 127 3558 Heusden Belgie 


Eventueel kunt u de contributie rechtstreeks overmaken per bank of giro aan de 
Atom Computer Club te Groenekan, Vermeld echter uw volledige naam, adres en de 
REGIO waarbij u ingedeeld wilt worden. 


